ftO-fll 

UNCLA 

72  782  ARTIFICIAL  INTELLIGENCE  CONCEPT 
ENVIRONMENT  A  CASE  S  (U)  AIR 
URIGHT-PATTERSON  APB  OH  SCHOOL 
5SIFIED  MAR  86  AF I T /GCS/ENG/86M - 1 

ANO  THE  UAR  GAMING 
-ORCE  INST  OF  TECH 

OF  ENGI  G  8  WHITE 

F/G  15/7 

i/2  ~ 

NL 

_ 1 

■ _ 

ARTIFICIAL  INTELLIGENCE  CONCEPTS 
AND  THE  LAP.  GAMING  ENVIRONMENT: 

A  CASE  STUDY  USING  THE  TEMPO  WAR  GAME 


THESIS 

Gregory  E  .  White 
Captain,  U  S  A  F 

AFIT/GCS/ENG/86K-1 


n1 


OCT  1 


DEPARTMENT  OF  THE  AIR  FORCE 
AIR  UNIVERSITY 

AIR  FORCE  INSTITUTE  OF  TECHNOLOGY 


Wright-Patterson  Air  Force  Base,  Ohio 


V*  «TiKV  *VX~ » :<V  jTi  ir-yj 


I 

m 


I 


8  ® 


AFIT/GCS/ ENG/86 


ARTIFICIAL  INTELLIGENCE  CONCEPTS 
AND  THE  WAR  GAMING  ENVIRONMENT: 

A  CASE  STUDY  USING  THE  TEMPO  WAR  GAME 


THESIS 


Gregory  B .  White 
Captain,  USAF 


AFIT/GCS/ENG/86M-1 


-  «  .f*** 


Approved  for  public  release;  distribution  unlimited. 


AFIT/GCS/ENG/86M-1 


ARTIFICIAL  INTELLIGENCE  CONCEPTS 
AND  THE  WAR  GAMING  ENVIRONMENT: 

A  CASE  STUDY  USING  THE  TEMPO  WAR  GAME 


THESIS 


Presented  to  the  Faculty  of  the  School  of  Engineering 
of  the  Air  Force  Institute  of  Technology 
Air  University 

in  Partial  Fulfillment  of  the 
Requirements  for  the  Degree  of 
Master  of  Science  in  Computer  Engineering 


Gregory  B.  White,  B.S. 
Captain,  USAF 

March  1986 


.  A 
I 
: 

l* 


_Dirtr  :• 
Avn  i 

Dist  | 

I \M. 


Approved  for  public  release;  distribution  unlimited. 


The  purpose  of  this  study  was  to  develop  a  computerized- 
player  version  of  the  TEMPO  force  planning  war  game.  The 
immediate  outcome  of  this  would  be  to  provide  the  Squadron 
Officers  School  non-residence  program  with  the  capability  to 
have  TEMPO  included  in  their  curriculum  in  order  for  them  to 
more  closely  resemble  the  residence  program.  Secondary  to 
this,  I  wanted  to  show  the  feasibility  of  implementing  war 
games  on  microcomputers  and  additionally  to  show  how  the  use 
of  artificial  intelligence  techniques  could  aid  in  making 
war  games  more  realistic  and  useful. 
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A  b  s  t  r act 


War  gaining  has  long  been  an  accepted  practice  in  the  mental 


preparation  of  officers  for  war.  -AWith  the  introduction  of 

'  1  Ir  -A  1  '  '  ■*  V  . 

computers,  j  -Tire  Ramies  have  become  increasingly  sophisticated 


yet  most  current  war  games  are  either  too  slow,  not 


realistic,  or  use  the  computer  as  a  referee  only  and  not  as  a 


player.  An  approach  is  discussed  in  the  context  of  TEMPO,  a 


force  planning  war  game  currently  used  by  the  Air  Force  at 


its  Squadron  Officers  School.  This  thesis  involved  the 


development  of  a  version  of  TEMPO  in  which  a  computer  expert 


system  takes  the  place  of  one  of  the  players,  and  an 


intelligent  computer  instruction  system  that  takes  the  place 


of  the  section  leader.  The  system  is  implemented  on  a 


microcomputer  allowing  its  use  in  professional  military 


education  seminar  courses. 
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ARTIFICIAL  INTELLIGENCE  CONCEPTS 
AND  THE  WAR  GAMING  ENVIRONMENT: 

A  CASE  STUDY  USING  THE  TEMPO  WAR  GAME 


I .  Introduction 


Testing  the  theories  relating  to  the  art  of  war  has 
been  an  accepted  practice  for  several  thousand  years.  Sun 
Tzu  knew  of  it's  importance  in  500  BC  when  he  wrote  in  his 
treatise  The  Art  of  War: 


The  general  who  wins  a  battle  makes  many 
calculations  in  his  temple  ere  the  battle  is  fought. 
The  general  who  loses  a  battle  makes  but  few 
calculations  beforehand.  Thus  do  many  calculations 
lead  to  victory,  and  few  calculations  to  defeat: 
How  much  more  do  no  calculations  at  all  pave  the  way 
to  defeat!  (Tzu,  43) 


Eventually  this  testing  of  theories  and  calculations 
developed  into  what  is  now  referred  to  as  war  gaming,  a 
concept  as  important  today  as  it  was  in  Sun  Tzu's  time. 
Early  games  felt  to  mentally  prepare  individuals  for  combat 
included  Chess,  Go,  and  Checkers,  but  these  games  lost  their 
place  as  newer  war  games,  complete  with  maps  and  counters 
representing  the  different  military  units,  were  developed. 
In  recent  years,  the  addition  of  computers  to  war  gaming  has 
added  a  whole  new  dimension.  One  example  of  a  modern  war 


game  is  the  strategic  force  planning  exercise  known  as 


TEMPO.  Originally  designed  by  the  Technical  Military 
Planning  Organization  (TEMPO)  of  the  General  Electric 
Company  of  Santa  Barbara  as  a  manually  played  simulation, 
this  game  has  recently  been  programmed  for  several 
different  systems  including  the  PDP  11/70  and  Apple  III 
computers  (Owens,  1982:1). 

Background 

The  purpose  of  a  war  game  is  to  mentally  prepare  an 
individual  to  make  correct  strategic  decisions  pertaining  to 
some  particular  conflict.  To  be  effective,  the  war  game 
must  therefore  represent  as  closely  as  possible  the 
conditions  that  can  be  expected.  The  game  should  also  be 
made  accessible  to  as  many  individuals  as  possible  in  order 
to  gain  the  most  benefit  from  it.  Most  current  war  games, 
however,  are  lacking  in  these  areas.  The  force  planning 
exercise  entitled  TEMPO  is  a  good  example. 

TEMPO  is  currently  played  at  several  sites  including 
the  U.S.  Army  Management  School,  The  Naval  Postgraduate 
School,  and  all  three  Air  Force  Professional  Military 
Schools  at  Maxwell  AFB:  the  A.ir  War  College,  Air  Command 
and  Staff  College,  and  Squadron  Officers  School  (SOS). 
Using  SOS  as  an  example,  currently  less  than  half  of  the  Air 
Force  company  grade  officers  receive  the  opportunity  to 
attend  in  residence.  The  rest  take  part  in  the  non¬ 
residence  program  by  participating  in  it  by  correspondence. 
Unfortunately,  the  correspondence  course  does  not  include 


the  TEMPO  game  as  part  of  its  curriculum.  This  means  that 
fever  than  half  of  the  company  grade  officers  in  the  Air 
Force  will  have  had  the  opportunity  to  gain  the  kind  of 
knowledge  about  the  budgetary  decisions  made  during  force 
planning  that  is  available  by  playing  the  game.  TEMPO 
additionally  suffers  from  another  common  drawback  which 
is  that  the  computer  is  only  used  as  a  referee  or  umpire. 
The  game  is  played  by  two  opposing  sections  with  the 
computer  calculating  and  reporting  all  pertinent  game 
information.  This  inhibits  the  usefulness  of  the  game  since 
a  single  individual  would  not  be  able  to  play  the  game  (a 
requirement  if  it  were  to  be  used  in  the  correspondence 
version  of  SOS).  Other  war  games  suffer  from  this  problem 
to  an  even  greater  extent  as  some  require  a  group  of 
"experts"  to  play  the  part  of  an  opposing  force  (the  "red 
team"  concept). 

Some  war  game  developers  have  solved  the  problem  of 


having 

to  have  a  group 

o  f 

experts  or  an 

additional 

player 

by 

using 

the  computer 

a  s 

both  a  referee 

and  as  one 

o  f 

the 

players 

(the  idea  of 

a 

"computer  ized 

player") . 

Many 

o  f 

these, 

however,  suffer 

from  a  lack 

of  realism 

a  s 

the 

computerized  player  works  from  a  "canned"  script  or  a  set  of 
algorithms  from  which  it  calculates  its  moves.  This  lack  of 
realism  is  exactly  the  problem  Lt  General  Raymond  B.  Furlong 
addressed  when  he  suggested  the  incorporation  of  "unknown 


unknowns 


into  Air  Force  war 


©  » 


1984:6) . 


his  article,  Lt  Gen  Furlong  discussed  the  need  for 
uncertainty  and  chance  to  be  modelled  in  war  games  in  order 
to  make  them  seem  more  realistic. 

Th e s  is  Objective  and  Scone 

The  objective  of  this  thesis  is  to  design  and  implement 
a  version  of  TEMPO  that  can  be  used  by  the  SOS  non-residence 
program  to  give  the  majority  of  Air  Force  officers  the 
opportunity  to  experience  the  force  planning  environment. 
Doing  so  also  meets  an  Air  Force  requirement  to  write  a 
version  of  TEMPO  that  can  be  modified  to  meet  the  varied 
needs  of  its  different  professional  military  schools.  A 
requirement  of  this  program  is  that  it  must  run  by  itself 
without  the  need  for  an  umpire  or  second  player/team.  This 
results  in  a  computerized  player  requirement  along  with  a 
computerized  referee.  In  addition  to  implementing  this 
program,  the  war  gaming  environment  and  how  artificial 
intelligence  (Al)  techniques  and  ideas  can  be  used  in  it 
will  be  examined.  This  thesis  is  not  intended  to  produce  a 
generic  design  for  AI  war  games  but  rather  to  show  how  AI 
techniques  are  used  in  the  implementation  of  one  specific 
war  game.  As  a  side  objective,  an  evaluation  of  an  expert 
building  tool,  M.l,  will  be  accomplished. 

Assumptions  and  Game  Characteristics 


There  are  four  game  characteristics  that  are  important 
in  the  development  of  a  war  game.  First  of  all  the  war  game 


should  be  available  to  as  many  officers  as  possible.  This 
requires  that  the  game  be  playable  on  a  machine  that  is 
available  to  as  large  a  segment  of  the  officer  corps  as 
possible.  It  is  assumed  that  the  majority  of  Air  Force 
Officers  have  access  to  an  IBM  PC  or  an  IBM  PC  compatable 
machine  and  therefore  this  machine  was  chosen  as  the  target 
machine  for  this  thesis  effort.  The  second  characteristic 
is  that  the  game  should  be  easily  modifiable  so  as  to  easily 
reflect  real  world  changes  in  weapon  systems  and  doctrine. 
This  characteristic  (along  with  the  first)  drove  the 
selection  of  the  language  to  be  used  in  this  thesis.  PASCAL 
was  chosen  because  of  its  ease  of  use,  adaptability  to  sound 
software  engineering  practices  such  as  modularity,  and  the 
ability  of  an  average  programmer  to  learn  it  as  compared 
with  a  more  specialized  language  such  as  LISP.  The  third 
characteristic  is  that  the  game  should  contain  a 
computerized  player.  This  enables  the  game  to  be  played  by 
a  single  individual  and  additionaly  always  provides  an 
"expert"  who  understands  the  rules  to  play  against.  The 
later  is  important  because  when  two  novices  play,  certain 
concepts  might  be  ignored  through  a  lack  of  understanding  on 
the  participants  parts.  The  last  characteristic  is  that  the 
game  have  some  sort  of  intelligent  tutor  to  take  the  place 
of  a  human  instructor.  This  is  necessary  in  order  to 
provide  the  interaction  needed  to  learn  from  an  individuals 
mistakes.  With  an  intelligent  tutor,  a  novice  can  learn  the 
concepts  embedded  in  the  game  faster  than  if  left  alone. 


Eg  u i pme  n  t  Required 

The  only  required  equipment  for  this  thesis  was  a  computer 
that  was  either  an  IBM  PC  or  a  IBM  PC  compatible,  and  a 
version  of  PASCAL.  Borlands'  TURBO  PASCAL  was  chosen  as  the 
prefered  version  because  of  its  cost  and  the  fact  that  it  is 
widely  distributed  and  fairly  portable.  Its  portability 
means  that  a  whole  new  set  of  machines  will  be  able  to  be 
used  to  play  the  game  since  versions  of  TURBO  PASCAL  exist 
for  CPM  based  machines  .  The  final  item  required  is  a  copy 
of  Teknowledge's  M.l  so  that  its  applicability  to  war  gaming 
could  be  studied. 
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1 1 .  The  Field  o  f  Artificial  Intelligence 

The  field  of  artificial  intelligence  (Al)  has  been 
receiving  ever  increasing  attention  for  the  past  decade.  AI 
means  many  different  things  to  different  people.  If  someone 
were  to  interview  people  to  find  out  what  they  felt  AI  was, 
answers  might  vary  anywhere  from  "getting  a  machine  to  think" 
to  "creating  a  robot  like  in  Star  War8."  For  the  purpose  of 
this  thesis,  Elaine  Rich's  definition  will  be  used.  She 
describes  AI  as  "the  study  of  how  to  make  computers  do  things 
at  which,  at  the  moment,  people  are  better."  [Rich,  1983:1] 
Put  another  way,  AI  is  concerned  with  developing  hardware  and 
software  that  accomplishes  some  task  that,  up  to  this  point, 
could  only  be  done  by  a  human. 

If  these  definitions  are  used  as  guidelines  for 
determining  what  is  or  isn't  AI,  then  several  fields  of  study 
could  be  thought  of  as  being  encompassed  by  the  field  of  AI. 
These  would  include  robotics,  pattern  recognition,  natural 
language  understanding,  learning,  intelligent  computer  aided 
instruction,  and  expert  systems.  The  last  two  items, 
intelligent  computer  aided  instruction  and  expert  systems, 
are  of  particular  importance  for  this  thesis.  Expert  systems 
will  be  discussed  first. 


Expert  Systems 

Expert  systems  are  programs  (or  machines)  that,  given 
some  specific  domain,  "think"  and  "act"  as  an  expert  would. 
An  example  of  one  is  the  medical  diagnosis  program  called 
MYCIN.  MYCIN  carries  on  an  interactive  dialog  with  the  user, 
a  physician,  about  a  patient  who  has  some  sort  of  infectous 
disease.  Based  on  the  answers  it  receives,  it  asks  other 
questions  and  eventually  proposes  a  possible  diagnosis  along 
with  an  associated  therapy  for  it.  There  are  several 
elements  in  this  program  that  make  MYCIN  an  expert  system. 

The  first  element  that  enables  MYCIN  to  be  refered  to  as 
an  expert  system  is  its  knowledge  domain.  Infectous  disease 
is  not  an  area  in  which  everyone  is  versed,  it  is  an  area 
which  is  left  to  a  group  of  experts--in  this  case  physicians. 

The  second  element  making  MYCIN  an  expert  system  is  how  it 
uses  knowledge  it  has  obtained  to  structure  it's  line  of 
"thinking".  It  does  not  simply  go  through  a  set  number  of 
canned  questions  which  are  the  same  every  time  the  program  is 
consulted.  It  instead  uses  the  answers  obtained  from 
previous  questions  to  tailor  the  rest  of  the  questions  it 
will  ask  to  the  specific  problem  at  hand. 

The  third  element  deals  with  how  MYCIN  is  based  on  a 
"knowledge  base"  made  up  of  a  number  of  rules  which  contain 
the  knowledge  and  experience  an  expert  in  the  fiela  might 


reasonably  be  expected  to  have.  These  rules  are  refered  to 
as  production  rules  and,  along  with  facts  gathered  by  the 
program,  are  the  basis  for  all  knowledge  based  systems  (see 
figure  1).  The  rules  express  in  simple  IF...  THEN  ...  format 
the  knowledge  the  expert  has.  An  English  translation  of  one 
of  MYCINs  rules  (they  are  written  in  LISP,  a  common  AI 
language)  is  as  follows: 


IF  1)  the  infection  is  p r ima r y- ba c t e r e m i a  ,  and 

2)  the  site  of  the  culture  is  one  of  the  sterile 
sites,  and 

3)  the  suspected  portal  of  entry  of  the  organism  is 

THEN  there  is  suggestive  evidence  (.7)  that  the  identity 
of  the  organism  is  bacteroides.  (Barr,  1982:187) 


nowledge 
ase  rules 


expert  system 


facts 


f  igure  1 
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The  last  element  concerns  MYCINs  limited  explanation 
capability  (while  an  explanation  capability  is  not  a 
requirement  of  an  expert  system,  it  should  be  a  requirement 
for  a  useful  expert  system).  This  explanation  capability 
lets  the  user  of  the  system  see  the  line  of  reasoning  HYC1N 
used  to  obtain  its  results.  While  it  seems  that  having  this 
explanation  capability  is  a  plus  for  MYCIN,  the  fact  that  it 
is  limited  to  explanations  based  on  its  line  of  reasoning 
actually  negates  any  possible  advantage.  Studies  by  such 
individuals  as  Clancey  (Clancey,  1979)  have  shown  that  to  be 
useful  an  expert  system  must  be  able  to  do  more  than  just 
repeat  the  questions  in  its  knowledge  base  for  which  it  is 
seeking  an  answer.  Without  a  more  extensive  capability,  the 
program  cannot  effectively  be  used  to  train  physicians. 
Instead  it  can  only  be  used  by  physicians  who  already  have  a 
working  knowledge  of  infectious  disease.  This  same  concept 
is  true  when  dealing  with  Intelligent  Computer  Aided 
Instruction  systems. 

Having  used  MYCIN  as  an  example  of  an  expert  system,  it 
should  be  easy  to  now  recognize  that  an  expert  system  is 
simply  a  program  that  performs  like  an  expert  would  in  some  , 
very  specific  field.  One  of  the  most  difficult  parts  in 
creating  an  expert  system  is  the  collection  of  the  knowledge 
for  the  knowledge  base.  There  are  several  ways  to  do  this 
which  include  interviews  with  an  expert,  watching  an  expert 
perform  the  task  for  which  the  expert  system  is  to  be 


written,  and  having  the  expert  "think  out  loud"  as  the  task 
is  performed.  The  acquisition  and  encoding  of  knowledge  has 
led  to  a  field  of  its  own  known  as  Knowledge  Engineering. 

Knowledge  and  knowledge  engineering  is  not  only 
important  to  expert  systems  but  is  also  important  to  ICAI 
systems.  In  order  for  a  CAI  system  to  be  considered 
intelligent  some  sort  of  knowledge  base  must  exist  and  be 
used  . 

Intelligent  Compu  ter  A_ici_e_d  Instruct  ion 

The  concept  of  computer  aided  instruction  (CAI)  has  been 
around  for  a  number  of  years.  Simply  put,  it's  goal  is  to 
use  a  computer  as  an  aid  in  the  instruction  of  some  idea, 
concept,  or  skill.  Programmers  in  AI  involved  in  computer 
aided  instruction  are  interested  in  taking  this  one  step 
further.  They  refer  to  their  work  as  intelligent  computer 
aided  instruction  (ICAI).  To  illustrate  the  difference 
between  these  two,  consider  a  simple  program  designed  to  aid 
a  young  child  in  learning  addition.  The  basic  program  would 
simply  display  math  problems  and  wait  for  the  child  to  enter 
the  answer.  Once  the  answer  had  been  entered,  a  CAI  system 
would  determine  if  the  answer  is  correct  or  not,  and  then 
report  what  it  had  determined  to  the  child  along  with  keeping 
some  statistics  on  the  number  of  correct  and  incorrect 
answers  given.  This,  however,  is  not  enough  to  be  classified 
as  an  ICAI  system.  An  ICAI  system  would  attempt  to  determine 


not  only  what  mistake  had  been  made  but  why  it  was  a  mistake 
and  then  report  its  findings.  For  example,  does  the  child 
have  trouble  with  addition  problems  with  carries  or 
subtraction  problems  where  borrowing  is  necessary?  Are  there 
certain  numbers  that  the  child  continually  adds  or  subtracts 
incorrectly?  etc  .  .  .  Once  the  child's  problem  with  math  is 
determined,  the  ICAI  system  would  add  additional  instruction 
in  this  area,  either  through  further  instruction  or  simply  by 
emphasizing  these  problems.  In  this  way  it  uses  knowledge 
about  student  errors  along  with  some  teacher  strategies  to 
design  and  implement  a  tailored  tutoring  session  for  the 
student.  It  should  be  obvious  from  this  example  that  an  ICAI 
system  is  more  than  some  elaborate  grading  machine,  but 
rather  something  more  closely  related  to  a  personal  tutor 
that  can  provide  individualized  attention  to  the  student. 

There  are  numerous  ICAI  systems  currently  in  existance 
with  such  names  as  SCHOLAR,  WHY,  SOPHIE,  and  WEST  (Barr, 
1982:  224).  One  system  called  GUIDON  is  designed  to  teach 
diagnostic  problem-solving  using  rules  from  the  MYCIN  system 
(Barr,  1982:  267).  As  was  mentioned  earlier,  MYCIN  with  its 
simple  explanation  capabilities  is  not  capable  of  instruction 
by  itself.  GU1D  Oil's  goal  is  typical  of  interactive  ICAI 
systems  which  are  designed  to  lead  the  student  through  the 
steps  needed  to  solve  the  specific  problem  at  hand.  In  doing 
so,  it  is  hoped  that  the  student  learns  the  underlying 
concepts  in  the  particular  problem  solving  environment. 
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A I  Tools 


Currently,  s ymb o 1 -ma n ip u  1  a t  ion  languages  such  as  LISP 
and  PROLOG  are  the  choice  of  most  builders  of  expert  systems 
(as  well  as  with  other  AI  applications).  A  few  systems, 
however,  have  been  built  using  problem  oriented  languages 
such  as  FORTRAN  and  PASCAL  (Waterman,  1986:82).  The  reasons 
for  LISPs  popularity  include  the  ease  in  which  symbol 
manipulation  can  take  place  and  the  fact  that  LISP  treats 
code  and  data  as  one  and  the  same  thing.  This  later  feature 
enables  LISP  programs  to  add  to  and  modify  themselves;  a 
capability  necessary  in  systems  that  "learn."  As  the  number 
of  expert  systems  increased,  however,  other  languages  (or 
tools)  were  designed  to  aid  knowledge  engineers  in  the 
development  of  new  expert  system  applications.  These  tools 
include  such  packages  as  KEE,  0PS5,  and  one  developed  by 
Teknowledge  called  M.l.  These  tools  are  designed  to  make 
expert  systems  development  easier  and  faster  by  already 
providing  the  problem  solving  environment.  The  knowledge 
engineer  then  is  tasked  just  with  the  formation  of  the 
knowledge  base  rules  to  be  used  by  the  system.  An  example  of 
one  M.l  rule  from  a  small  expert  system  used  to  help  select 
the  correct  s hu t t e r - s p ee d  for  a  camera  is  as  follows: 

if  asa  =  100  and  light  =  sunny 
then  s hu t t e r - s p e e d  =  125. 

As  can  be  seen,  the  statement  i.  english-like  in  format  thus 
making  it  easy  to  develop  and  understand.  This  is  the  goal 
of  all  knowledge  engineering  tools. 

13 


Ill . 


Comou  ters  and  War  Gaming 

There  are  basically  two  ways  in  which  computers  can  be 
used  in  the  war  gaining  environment.  The  first,  which  will  be 
refered  to  as  computer  assisted  war  gaming,  is  to  use  the 
computer  only  as  a  referee.  This  referee  performs  the 
mundane  calculations  used  to  determine  the  outcome  of  moves 
made  by  the  human  players,  and  then  in  turn  reports  these 
outcomes.  The  computer  is  also  used  to  introduce  various 
factors  to  the  game  based  either  on  some  timetable  or  the 
current  gaming  environment.  An  area  where  AI  can  enhance 
computer  assisted  war  games  would  be  the  addition  of  an 
intelligent  computer  aided  instruction  system  which  would 
evaluate  and  instruct  the  players  of  the  game. 

The  second  way  of  using  the  computer  in  war  gaming  is  to 
actually  have  the  computer  take  the  part  of  one  or  more  of 
the  players.  Use  of  a  computer  in  this  manner  results  in 
what  is  known  as  a  computerized  player.  Currently,  a  number 
of  computerized  player  type  war  games  exist.  These  work 
either  from  a  "canned  script"  or,  at  best,  by  using  a  few 
simple  rules  to  guide  the  choice  of  moves.  Canned  scripts, 
while  easy  to  program,  suffer  from  a  tremendous  lack  of 
realism.  They  are  good  only  to  teach  some  very  basic 
concepts  in  war  gaming  since  they  totally  ignore  the  ever 
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changing  conditions  found  on  the  battlefield.  Adding  a  few 
rules  to  increase  variability  improves  the  computerized 
player  but  still  falls  far  short  of  what  can  be  expected  from 
a  human  opponent.  However,  by  careful  implementation  of  the 
computerized  player  as  an  expert  system,  a  tremendous  jump  in 
realism  can  be  obtained.  Furthermore,  an  ICAI  system  can 
also  be  added,  as  was  mentioned  in  the  computer  assisted  war 
games,  to  make  the  war  game  a  true  learning/teaching 
ex  per  ience. 

Looking  at  computerized  war  games  with  an  eye  towards 
their  implementation  as  expert  systems  led  to  categorizing 
war  games  into  three  areas.  The  first  category  contains 
those  small  scale  simulations  in  which  an  algorithmic 
solution  can  be  found.  These  games  contain  few  rules,  are 
generally  very  simple  in  concept,  and  are  intended  to  teach 
just  a  few  basic  concepts.  TEMPO  fits  into  this  category. 

The  second  category  consists  of  those  games  which 
contain  numerous  rules  and  are  more  complex.  It  is  also  here 
that  General  Furlong's  concept  of  "unknown  unknowns"  becomes 
important.  An  example  of  one  of  these  games  would  be  a 
combined  arms  simulation  in  which  numerous  units  with  several 
different  weapon  systems  represented  do  battle  on  varied 
terrain  under  ever  changing  conditions.  As  one  can  see,  it 
these  games  the  variables  are  numerous. 


The  last  category  consists  of  those  simulations  which 
rely  on  things  such  as  "human  intuition"  and  "gut  feelings". 
These  games,  while  not  necessarily  containing  a  large  number 
of  rules,  would  be  harder  to  implement  since  it  is  hard  to 
define  human  intuition  and  gut  feelings  in  terms  of 
production  rules.  An  example  of  this  is  a  game  created  by 
Avalon  Hills  called  Diplomacy  in  which,  during  the  course  of 
the  game,  players  lie  to  one  another  in  order  to  gain  certain 
advantages  through  deception.  In  order  to  be  able  to  win  a 
player  has  to  be  able  to  somehow  determine  who  has  lied  about 
potential  support  and  who  has  not.  As  often  as  not, 
alliances  are  made  and  broken  based  on  personal  reasons 
rather  than  qualitative  reasoning--a  real  challange  to  any 
potential  programmer  trying  to  simulate  these  lines  of 
t  hought . 


Cur  rent  Versions  of  T  E  K P  0 


There  are  several  versions  of  T  E  It  P  0  currently  written, 
none  of  which  (as  far  as  the  author  has  been  able  to  find) 
use  the  computer  for  anything  more  than  a  referee.  As  played 
at  SOS,  the  game  is  played  between  two  opposing  sections  of 
approximately  twelve  people  each.  There  is  a  terminal  in 
each  section  room  that  is  connected  to  a  central  computer. 
Each  section  decides  on  what  move  is  to  be  made  and  then 
submits  a  set  of  "orders"  to  an  individual  whose  only  job  is 
to  enter  the  orders  into  the  computer.  The  system  cannot  be 


considered  a  "friendly"  system  as  the  commands  need  to  be 
exact  with  no  room  for  mistakes.  When  both  sides  have 
determined  their  orders  and  they  have  been  input,  the 
computer  calculates  which  side  is  ahead  and  then  reports  this 
information  along  with  all  other  pertinent  data.  The  game  is 
the  same  every  time  it  is  played  as  it  works  from  a  canned 
script. 

Another  version  of  TEMPO,  written  as  a  Masters  thesis  by 
LT  Christopher  D.  Owens,  USE,  also  uses  the  computer  solely 
as  a  referee  (Owens,  1982).  This  version  has  had  a  few 
improve cents  made  to  it  however.  First  of  all,  it  was 
written  in  PASCAL  for  the  APPLE  III  Microcomputer.  This 
means  that  the  program  is  a  little  more  transportable  since 
it  is  written  in  a  common  language  for  a  fairly  common 
system.  It  also  has  the  advantage  that  it  was  designed  to 
allow  a  third  party,  referred  to  as  the  game  umpire,  to 
select  the  game  parameters  thus  making  the  game  more 
flexible.  Despite  these  advantages,  this  version  of  TEMPO 
has  not  only  the  inherent  disadvantages  associated  with  all 
computer  assisted  war  games,  but  a  few  additional  ones  as 
well.  The  game  umpire,  already  mentioned  in  passing, 
requires  a  third  party  to  be  present  for  at  least  the  initial 
set  up.  The  game  itself,  along  with  the  data  used  in  playing 
it,  resides  on  three  seperate  disks  requiring  the 
players/umpire  to  change  disks  during  the  game.  A  final 
problem  with  Lt  Ovens  version  of  TEMPO  lies  in  the  physical 


makeup  of  the  system.  Unless  a  printer  is  attached  to  the 
system,  the  players  will  have  to  take  turns  looking  at  their 
force  posture  and  entering  their  orders  since  there  is  only 
one  CRT  and  keyboard  attached  to  the  APPLE  III  computer. 

A I  Efforts  i n  War  Gaming 

Rand's  Strategy  Assessment  Center  (RSAC)  has  been  doing 
some  work  in  developing  "automatons"  to  make  some  or  all 
political  and  military  decisions  in  a  war  game.  (Davis, 
1984:iii).  Their  emphasis  has  been  in  large,  complex 
environments  normal  to  category  two  type  wargames.  In  fact, 
Davis  talks  in  term  of  games  that  contain  "thousands  of 
rules"  (Davis,  1984:12). 

This  is  not  the  only  work  that  Rand  has  done  in 
wargaming  (Klahr,  1982).  They  have  also  created  a  prototype 
air  battle  simulation  called  SWIRL  (for  Simulating  Warfare  In 
the  Ross  Language).  The  system  was  designed  to  allow  users 
to  easily  make  modifications  to  the  code  in  order  to  examine 
the  varied  aspects  of  an  air  battle.  While  their  work  has 
resulted  in  a  very  good  battle  simulator,  it  is  not  a  true 
war  game  in  the  traditional  sense.  Additionaly,  SWIRL  was 
written  for  a  DEC20  with  1 1 2 K  36  bit  words  required  for  the 
interpreter  alone.  If  graphics  aie  desired,  this  is 
accomplished  with  the  use  of  two  additional  graphics 
processors  driven  by  a  PDP  11/45.  All  told,  although  their 


object  oriented  approach  shows  great  promise  in  simulations 
and  possibly  war  gaining,  it  is  currently  not  a  very 
transportable  system. 


The  TEMPO  gane  was  originally  written  by  the  Economic 
Analysis  Section  of  the  Technical  Military  Planning 
Organization,  General  Electric  Company,  Santa  Barbara, 
California  (SOS,  1 9 8 3 : 3 3 50 - S - 2  )  .  There  have  been  numerous 
versions  of  the  game  created  including  the  one  currently 
played  at  SOS.  The  purpose  of  the  game  is  to  demonstrate  the 
type  of  force  planning  that  occurs  in  the  U.S.  military.  The 
stated  goal  of  the  SOS  version  is  "to  teach  each  player 
something  about  military  force  planning  and  resource 
management  under  the  constraints  of  time,  uncertainty,  and  a 
limited  budget."  (SOS,  1 9 8 3  :  3 3 50 - S-2  ) 

Game  Instructions 

The  human  player  (or  section,  hereafter  referred  to  as 
the  player)  will  be  playing  the  computer  with  each  side 
starting  with  identical  forces.  At  the  start  of  the  game, 
the  player  will  be  given  a  budget,  projected  next  year's 
budget,  a  list  of  the  weapon  systems  currently  in  the 
inventory,  a  list  of  proposed  research  and  development  (R&D) 
projects,  and  an  intelligence  report.  The  budget  is  to  be 
spent  on  improvements  to  the  players  forces  and  can  be  used 
to  operate  current  forces,  fund  P. & D  projects,  purchase  new 
systems,  make  modifications  to  existing  systems,  or  purchase 


intelligence  reports. 


There  are  four  different  types  of  weapon  systems  used  in 
this  game.  These  systems  are  broken  into  two  categories, 
offensive  and  defensive  systems.  Offensive  systems  include 
bombers  and  missiles,  and  defensive  systems  include  fighters 
and  a n t  i- b a  1 1  i  s t  ic  missiles  (ABM).  Each  weapon  system  has 
certain  data  associated  with  it.  First  of  all  it  has  an 
acquisition  cost  which  reflects  the  price  of  purchasing  one 
unit  of  that  system  and  its  operation  for  the  year  in  which 
it  is  bought.  Systems  also  have  an  operation  cost  associated 
with  them.  This  is  the  cost  to  maintain  that  system  in 
operational  status  for  one  year  (note  that  the  systems  first 
year  of  operational  cost  is  contained  in  the  systems 
acquisition  cost).  The  third  figure  associated  with  all 
systems  is  the  Util  value  for  that  system.  The  Util  value 
represents  the  "utility"  of  that  system  and  represents  the 
worth  of  the  system.  The  final  value  associated  with  all 
systems  is  the  purchase  limit.  This  is  the  maximum  number  of 
that  type  of  weapon  system  that  can  be  purchased  in  any  one 
year  . 

For  those  systems  that  are  proposed  R&D  systems, 
additional  information  is  given  such  as  the  number  of  years 
until  completion  of  R&D,  and  the  cost  of  R6D  for  each  of 
those  years.  One  important  factor  to  note  is  that  the 
figures  given  are  only  an  estimate  of  the  costs  and  values 
(with  the  exception  of  the  purchase  limit  and  the  current 
years  R6D  cost).  All  other  values  may  change  during  the 
research  and  development  of  that  system. 


The  game  lasts  for  eight  turns,  each  turn  representing 
one  year.  The  goal  of  the  game  is  to  maximize  the  net 
offensive  Utils,  while  operating  a  defensive  force  that  will 
minimize  the  opponents  offensive  Utils.  At  the  conclusion  of 
each  game  year,  an  intelligence  report  is  printed  informing 
the  player  whether  he  is  ahead  or  behind  in  the  "Arms  race" 
(whether  he  is  ahead  or  behind  in  net  offensive  Utils).  At 
the  conclusion  of  the  game,  each  side's  yearly  net  offensive 
Utils  count  is  totaled  and  the  side  with  the  greater  total  is 
declared  the  winner. 

Operation  o f  Forces 

Each  year  a  list  of  the  current  forces  owned  is  printed 
and  the  total  operations  cost  for  these  systems  printed. 
Unless  a  system  is  SCRAPPED,  the  computer  will  assume  that 
the  system  is  to  be  operated  and  the  appropriate  costs 
deducted  from  the  budget.  Any  forces  that  are  scrapped  are 
taken  out  of  the  game  completely  and  are  no  longer  available 
(no  "mothballing"  of  systems).  If  later  on  systems  that  had 
been  earlier  scrapped  are  desired,  they  must  be  acquired  by 
purchasing  them  as  a  new  system. 

Acquir  ing.  Forces 

Acquiring  forces  is  extremely  easy.  All  that  has  to  be 
done  is  to  pay  the  acquisition  cost  and  the  system  is 
considered  in  the  inventory.  As  had  been  mentioned 


previously,  the  acquisition  cost  includes  the  first  years 
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for  a  system  the  year  that  it  is  acquired.  The  purchase 
limit  for  a  weapon  system  cannot  be  exceeded  in  any  one  year. 


Research  and  Deve lopment 

During  the  first  four  years  of  the  game,  each  side  will 
receive  information  about  proposed  weapon  systems.  These 
systems  all  have  associated  R&D  costs  which  must  be  paid 
before  a  new  system  can  be  purchased.  Depending  on  the 
system  R&D  can  take  from  one  to  three  years.  The  process 
cannot  be  sped  up  by  paying  all  R&D  costs  in  one  year. 
Ongoing  R&D  can  be  halted  after  it  has  been  started  if  the 
system  is  no  longer  desired.  This  process  is  referred  to  as 
"shelving"  the  system.  Later,  shelved  systems  can  have 
research  commenced  once  again,  but  there  is  an  associated 
penalty  in  doing  this.  This  penalty  amounts  to  1/2  of  the 
cost  of  R&D  for  the  year  in  which  it  is  to  be  resumed. 


Modifications  t o  Veapon  Systems 

At  certain  points,  R&D  resulting  in  a  modification  of  an 
existing  weapon  system  (an  F-lA  for  example)  may  be  offered. 
Modifications  always  are  a  one  year  R&D  project  and  the  R&D 
cost  must  be  paid  before  any  systems  can  be  modified. 
Additionaly,  if  modifications  to  a  system  are  desired,  you 
must  have  some  of  the  original  system  to  modify  or  else  no 
modifications  can  occur  (there  must  be  some  F-l's  in  the 
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inventory  before  they  can  be  modified  to  be  F-lA's).  Care 
must  be  taken  to  not  scrap  systems  if  modifications  are 


desired  on  them.  You  may  additionaly  purchase  new  units  of  a 
modified  system  by  going  through  the  normal  acquisition 


process 


Intelligenc e 


Each  side  can  purchase  certain  types  of  intelligence 


reports  which  deal  with  the  force  posture  of  the  opposing 


side.  There  are  four  types  of  reports,  each  costing  $100. 


These  reports  deal  with  the  makeup  of  the  opposing  offensive 


forces,  defensive  forces,  offensive  R&D  projects  funded,  and 


defensive  R&D  projects  funded.  In  addition,  there  are  two 


other  intelligence  reports,  neither  of  which  costs  any  money. 


The  first  is  given  at  the  beginning  of  each  year  and  reports 


the  chance  of  a  war  breaking  out  that  year  and  the  second  is 


given  at  the  end  of  each  year  and  reports  on  who  is  currently 


ahead  in  the  "Arms  race". 


The  intelligence  reports  given  are  not  precise,  instead 


they  are  only  a  general  idea  of  the  opposing  forces.  The 


reports  dealing  with  the  current  offensive  and  defensive 


forces  provides  a  ten  unit  range  for  each  weapon  system  in 


the  appropriate  category  (i.e.  if  the  opposing  forces  had  62 


B-l's  the  intelligence  report  would  state  that  there  were 


60-70  B-l's).  The  reports  dealing  with  the  current  R&D  in 


progress  lists  all  projects  that  have  been  funded  in  the 


appropriate  category  but  does  not  tell  how  far  along  those 
pro jec  ts  are  . 


Analysis 

The  player  can  obtain  an  analysis  of  any  weapon  system 
desired.  This  analysis  will  be  in  terms  of  a  Util  per  dollar 
percentage  which  can  be  compared  with  similar  data  obtained 
for  the  other  weapon  systems.  This  is  the  real  heart  of  the 
game  since  it  is  based  on  these  figures  that  the  player  will 
make  the  decisions  as  to  which  systems  to  fund  or  to  drop. 
The  value  is  obtained  using  the  following  equations:  (SOS, 
1 S  8  3 :  3330-S-13) 

Util/$  percentage  =  100  X  total  utility  ■ 

total  cost 

utility  year  1  +  utility  year  2  +  utility  year 
R&D  cost  +  acfiui  si  t  inn  cost  +  onpratine  cost 


Year  1 

Budget  1000  1000 

Minus  R&D  -200  -250 

Budget  left  to  buy  systems  800  750 

Number  of  systems  we  can  buy  8  6 

Year  2 

Budget  1000  1000 

Minus  Operations  cost  -400  -450 

Budget  left  to  buy  systems  600  550 

Number  of  systems  we  can  buy  6  4 

Year  3 

Budget  1000  1000 

Minus  Operations  cost  -  7  00  -7  50 

Budget  left  to  buy  systems  300  250 

Number  of  systems  we  can  buy  3  1 

Total  number  of  systems  for  B-l  =  17 
Total  number  of  systems  for  B-2  =  11 


Now  lets  compute  the  Util/$  percentage  using 

( u til  year  one)  +  (util  year  two)  +  (util  year  three) 
(R&D  cost)  (Acq  cost  yr 1 +yr2  +  yr3 )  +  (ops  cost  y r 1 +  y r2  +  y r 37 

For  the  B-l 

_ (8  X  50)  +  (  14  X  50  )  +  (  17  X  50  ) _ 

(200)  +  l  (  100X8)  +  ( 100X6  )  +  ( 100X3  ) ]  +  [(0)  +  (  50 X8 )  +  (  50 Xl 4 ) ] 

_ 400  _ +  700  + _ 850 _ _ 

200  +  800  +  600  +  300  +  0  +  400  +  700 

1950  /  3000  =  .65 

To  get  the  percentage,  .65  X  100  =  65 


For  the  B-2 


1  200  _ ♦  2000  + _ 2200 _ 

2  50  i  7  50  +  5  50  +  2  50  +  0  +  4  50  +  7  50 

5400  /  3000  =  1.8 


To  get  the  percentage,  1.8  X  100  =  180 


It  can  be  quickly  seen  from  this  example  that  the  total 


number  of  weapon  systems  cannot  be  used  as  a  good  measuring 


stick  for  how  good  a  system  is.  In  our  example  we  were  able 

to  buy  more  B-l's  than  B-2's  but  after  performing  the 

analysis  we  found  that  we  would  be  ahead  in  total  number  of 
utils  if  we  purchased  the  B-2's  instead. 

Another  form  of  analysis  that  can  be  made  (there  is  no 
computer  function  to  perform  this,  it  is  entirely  left  up  to 
the  player)  is  the  analysis  of  the  opponents  force.  This  is 
important  in  order  to  decide  what  type  of  defensive  weapon 

systems  need  to  be  purchased  and  how  many  of  them  are 

required.  The  basis  for  this  analysis  is  the  intelligence 
that  was  purchsed  in  the  previous  year.  If,  for  example,  we 
received  the  following  intelligence  report 

Offensive  Forces  - >  B-l's  10-20 

M- 1 ' s  0-10 

Defensive  Forces - >  F-l's  20-30 

ABM-1 ' s  10-20 

Offensive  R&D - >  M-lA 

Defensive  R&D - >  F-2 

an  analysis  could  be  performed  as  follows  (based  on  the 
values  for  utils  given  at  the  start  of  the  game): 

OPPONENT'S  OFFENSE 


SYSTEM 

INVEN 

Ac  q 
Cost 

Ops 

Cost 

Utils 

unit 

Util  Ops  cost 

Range  Range 

B-  1 

10-20 

50 

20 

10 

100-200  200-A00 

M-l 

0-1C 

A0 

20 

30 

0-300  0-200 

M-  1  A 

Research 

100 

50 

70 

R&D  Cost 
400- 500-650 

OPPONENT'S  DEFENSE 


SYSTEM 

IN  VEM 

Ac  q 
Cost 

Ops 

Cost 

Utils 

unit 

Ut  i  1 
Range 

Ops  cost 
Range 

F-l 

20-30 

40 

20 

30 

600-900 

400-600 

ABM-1 

10-20 

30 

40 

60 

600-1200 

400-800 

F-2 

Research 

90 

70 

90 

R & D  Cost 

100-200-120 


After  creating  charts  like  these,  a  comparison  between  the 
computers  and  the  players  forces  can  easily  be  made.  Charts 
such  as  these  can  aid  the  player  in  determining  exactly  what 
forces  need  to  be  purchased  to  counter  a  specific  offensive 
threat.  They  are  also  valuable  in  determining  whether  there 
are  any  wasted  defensive  utils  (sometimes  refered  to  as 
"futile  utils").  Since  the  players  score  is  based  on  the  net 
offensive  point  value,  any  defensive  systems  that  were  not 
needed  to  counter  a  threat  are  just  wasted  money. 

War 

Each  year  an  intelligence  report  informs  the  player  the 
percentage  chance  of  a  war  occuring  at  the  end  of  that  year. 
The  percentage  is  based  on  the  disparity  between  the  net 
offensive  points  of  the  two  sides.  The  greater  the 
difference  between  these  figures,  the  greater  the  chance  for 
war.  This  represents  the  likelihood  that  a  war  would  break 
out  when  a  side  has  an  overwhelmingly  superior  offensive 
force.  Even  if  the  two  sides  are  even,  there  is  a  certain 
base  chance  that  a  war  will  occur.  If  a  war  does  break  out, 
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the  losing  side  will  have  their  budget  cut  by  $800,  and  the 
winning  side  will  have  their  budget  cut  by  $200.  This  will 
encourage  each  side  to  make  sure  that  they  have  an 
operational  offensive  force  each  year. 


Over  spend ing  the  Budget 

This  only  applies  to  the  player  because  the  computer  has 
been  programmed  to  never  overspend  it's  budget.  If  the 
player  should  happen  to  overspend  the  budget  in  any  one  year, 
the  next  years  budget  will  be  reduced  by  that  amount  and  the 
computer  will  arbitrarily  eliminate  operational  forces  from 
the  players  inventory  until  the  budget  is  brought  in  line. 
One  can  quickly  see  that  it  is  therefore  not  advisable  to 
overspend  the  budget  since  the  systems  that  the  computer 
scraps  may  be  the  best  systems  available  as  opposed  to  the 
worst. 


Weapon  System  Effectiveness 

The  total  utils  is  not  calculated  simply  by  multiplying 
the  number  in  inventory  by  the  utils/unit  figure  for  that 
weapon  system.  Instead,  this  figure  is  calculated  by 
multiplying  the  number  in  inventory  by  the  utils/unit  figure 
for  that  weapon  system  and  then  multiplying  that  figure  by  a 
balance  of  forces  figure.  This  balance  of  forces  figure 
insures  that  there  is  a  balance  of  forces  between  different 
types  of  offensive  or  defensive  weapons.  This  does  not  have 


There  were  three  major  considerations  in  the  design  of 


the  TEMPO  war  game.  The  first  was  to  insure  the  use  of 
software  engineering  principles  such  as  modularity  and 
documentation.  Since  the  purpose  of  this  thesis  was  to 
provide  maintainable  code,  it  must  be  easy  to  follow  and 
understand.  Few  environments  are  stable  enough  to  not 
require  periodic  modifications  of  a  program  to  bring  it  up  to 
date  so  careful  implementation  of  the  initial  software  could 
save  countless  man  hours  a  few  years  from  now.  Both 
documentation  of  code  and  the  use  of  a  modular  style  of 
programming  are  accepted  practices  that  aid  in  the 
maintenance  of  software  as  new  requirements  are  made. 
Related  to  this  maintenance  issue  is  the  issue  of  changing 
game  parameters.  Weapon  systems  change  and  for  the  game  to 
remain  useful  the  systems  modelled  in  the  game  need  to  be 
easily  modified.  This  was  accomplished  by  having  all  of  the 
weapon  system,  parameters  read  in  from  a  stored  file  at  the 
beginning  of  the  game.  By  having  these  values  stored  in  a 
file  as  opposed  to  hard  coding  them,  the  upkeep  of  them  is 
greatly  facilitated.  In  fact,  a  small,  seperate  program  was 
written  which  writes  these  values  to  the  file.  This  seperate 
program  permits  extremely  easy  modification  of  the  weapon 


system  parameters. 


The  second  important  design  concept  was  the  design  of 


the  data  base  to  be  used.  Already  mentioned  was  how 
important  it  is  to  be  able  to  modify  the  weapon  system 
parameters,  also  important  is  the  ease  with  which  this 
information  can  be  accessed.  Since  the  entire  game  revolves 
around  the  weapon  systems,  it  is  necessary  to  have  easy 
access  to  them  by  the  rules  and  heuristics.  If  to  access 
some  weapon  system  data  requires  many  c onv o 1 u s i on s ,  the  time 
it  would  take  the  computer  to  select  its  moves  would 
increase.  This  is  not  a  desirable  effect.  Another  data  base 
consideration  was  to  make  it  as  understandable  as  possible  so 
that  future  enhancements  or  changes  would  be  as  simple  as 
possible.  The  data,  therefore,  was  stored  in  three  seperate 
sections,  the  weapon  systems  owned  by  the  human  player,  those 
owned  by  the  computer,  and  a  large  section  containing 
information  on  all  weapon  system  parameters.  This  logical 
division  of  the  data  facilitates  future  enhancements. 

The  third  design  consideration  was  the  interface  that 
would  be  required  to  allow  the  use  of  an  M.l-based  ICAI 
system.  Since  M.l  only  reads  ASCII  data,  all  numeric  data 
needed  to  be  "translated"  before  it  was  written  to  a  file. 
The  interface  takes  the  form  of  a  single  procedure  that 
writes  certain  game  information  to  one  of  eight  files 
representing  the  eight  game  turns.  Since  the  files  are  only 
written  to  by  one  procedure,  modification  to  the  files  is 
simple.  The  type  of  information  currently  written  includes 


such  things  as  whether  the  player  overspent  the  years  budget, 
and  whether  or  not  too  much  money  was  spent  on  a  certain  type 
of  defensive  system.  This  information,  along  with  the  other 
information  written  to  the  files,  represent  the  type  of 
problems  that  students  were  found  to  make.  The  module  that 
wrote  to  the  different  files  is  called  PRNTRPRT  and  is  just 
one  of  seven  major  modules. 

TEMPO  Module  Descr  ipt  ion 

The  main  routine  in  TEMPO  is  very  short  and  consists  of 
a  loop  with  several  procedure  calls  (see  Appendix  A.).  The 
first  routine  called  is  INIT  which  does  all  array  and 
variable  initialization.  It  is  in  this  procedure  that  the 
file  of  weapon  system  parameters  is  read  in.  TEMPO  then 
repetitively  calls  five  routines  in  order;  one  time  for  each 
game  turn. 

The  first  routine  called  in  the  loop  is  REPORT.  This 
procedure  prints  three  screens  of  game  reports  consisting  of 
a  report  on  the  current  status  of  the  players  weapon  systems, 
one  on  both  the  proposed  and  currently  funded  research  and 
development  projects,  and  one  displaying  what  is  known  about 
the  computers  forces  (known  as  intelligence  reports).  Each 
one  of  these  screens  has  an  associated  help  screen  which 
ex  plains  the  meaning  of  the  different  output  variables.  The 
help  screen  can  be  seen  by  typing  an  "H".  When  the  player  is 


finished  viewing  the  help  screen,  the  original  screen,  from 
whence  the  call  to  the  help  screen  originated,  is  re-displayed 
(see  figures  2-4)  . 


Start  of  Year  1 
Your  Budget  i§  $  9330 

The  estimated  budget  for  next  tear  it 

PER  UNIT* 


SYSTEM 

IKVEK 

AQCOST  OPCOST 

UTILS 

B-l 

40 

50 

30 

10 

V.-  1 

60 

1  00 

30 

20 

Offensive 

Total 

F-l 

20 

1  40 

60 

20 

A  BM  -  1 

100 

30 

20 

10 

Defensive 

Total 

To  1 1  1 

present 

operating  cost 

(enter  an  H  for 


$  9870 

TOTAL 


PURCH 

MOD  I 

OPCOST 

UTILS 

LIMIT 

COST 

1200 

400 

30 

0 

1800 

3000 

1200 

20 

40 

1200 

400 

30 

60 

2000 

1000 

30 

0 

3200 

6200 

p  or  press  return  to  continue) 


This  screen  contains  information  about  your  current  force  structure. 

It  it  split  into  tvo  sections;  offensive  and  defensive  veapon  systems. 

The  column  headings  represent  the  folloving  information: 

SYSTEM  -  the  name  of  a  weapon  system  you  have  completed  research  oo. 

INVEN  -  the  number  currently  in  your  inventory. 

AQCOST  -  acquisition  cost,  the  cost  to  purchase  one  of  these  veapon  systems. 

(it  also  covers  the  operating  cost  for  the  first  year) 

OPCOST  -  the  cost  of  operating  this  veapon  system  for  one  year. 

UTILS  -  the  util  value  for  one  of  these  systems. 

TOTAL  OPCOST  -  the  total  operations  cost  if  you  keep  all  of  the  units  you 
currently  have  in  your  inventory  of  thi6  veapon  type. 

TOTAL  LTILS  -  the  total  utils  you  vill  receive  if  you  keep  all  of  these  units. 
PUFCF  LIMIT  -  the  maximum  number  of  this  type  of  veapon  you  cao  buy  in  a  year. 
MODI  COST  -  the  cost  of  modifying  ooe  of  these  units  to  an  upgraded  version. 

(only  valid  if  you  pay  the  research  costs  for  the  new  version, 
a  0  appears  if  there  is  no  modification  available) 

£ 

press  enter  to  continue 


figure  2 


Proposed  RAD  Programs 


All  of  the  f  ol lowing 

are  expected  values  except  year  1 
PER  UNIT  R 

RAD  cost 

A  D  COST 

SYSTEP 

IK 

AQCOST 

0PC0ST  UTILS 

YEAR  1 

YEAR  2  YEAR  3 

LIPIT 

6-2 

3  y  r  s 

no 

30  2  30 

590 

840 

460 

20 

F  -  1  A 

lyrs 

90 

50  90 

190 

0 

0 

2  C 

A  B  M  -  2 

2  v  r  6 

130 

60  1  10 

550 

420 

0 

2  C 

P-1  A 

lyrs 

100 

40  70 

90 

0 

0 

2  5 

R  EP  EP  BER - 

-  Systems 

may  be 

bought  the  s  ame 

year  final 

RAD  costs 

are 

paid 

(enter  an  E 

for  help  or  press  a  return  to  cont 

i  nu  e  ) 

This  screen  contains  information  about  proposed  research  and  development 
(RAD)  projects  as  veil  as  any  projects  you  have  funded  in  the  past.  This  screen 
is  for  informational  purposes  only,  you  will  have  the  opportunity  to  fund 
or  shelve  projects  when  you  reach  the  PLAYER  FUNCTION  MENU. The  column  headings 

SYSTEM  -  the  name  of  the  weapon  system. 

AVAILABLE  IN  -  hov  many  years  it  will  take  to  complete  research  on  the  project. 
AQCOST  -  the  cost  to  acquire  one  of  these  units  when  research  is  complete. 

CPCOST  -  the  cost  to  operate  one  of  these  units  for  a  year  vhen  RAD  complete. 

UTILS  -  the  per  unit  util  value  for  thi6  weapon  system. 

RAD  COST  YEAR  x  -  the  cost  of  funding  research  on  this  weapon  system  for  that 
year.  Only  the  present  years  RAD  cost  is  known  for  certain, 
the  rest  are  just  estimates  o:  the  projected  RAD  cost. 

FIFO  LIMIT  -  t  r.E  caximuc  number  of  tnis  v  taper,  system  that  cat  be  purchasec 
in  a  year  when  RAD  complete. 

If  the  word  "shelved”  appears,  it  signifies  a  6ystem  you  at  one 

time  funded  research  on  hut  later  dropped.  It  will  cost  you 

1  1/2  times  the  amount  of  the  first  years  RAD  cost  tc  resume. 

One  final  note,  remember  that  systems  car  te  bought  the  same  year  the  final 

RAD  costs  are  paid - in  other  words,  when  it  says  "lyrs"  in  the  AVAILABLE  IN 

cclurr. 

* 

press  enter  to  continue 


figure  3 


Intelligence  report 
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This  screen  indicates  what  your  intelligence  forces  report  to  you.  It 
is  for  informational  purposes  only,  you  will  have  the  opportunity  to  dictate 
what  type  of  intelligence  you  desire  in  the  ORDERS  section  of  the  PLAYER 
FUNCTION  MENU. 


As  a  bio  iirutt  ,  you  will  be  told  what  the  chance  of  war  occuri 
this  year  will  be.  This  information  costs  you  nothing.  The 
will  c  o  6 1  you  a  fixec  amount  each  year  you  request  it.  This 
t€  r.  the  form  of  the  name  of  the  weapon  system  anc  a  range, 
inc:  cates  the  upper  and  lower  values  for  the  possible  number 
your  opponent  currently  has  in  its  inventory.  Intel  reports 
projects  your  opponent  has  funded. 


og 

other  types  cf  int 
ir.  formation  will 
T  r.  is  r  a  c  e 
of  weapon  systems 
on  R6D  indicate 


C- 


press  enter  tc  continue 


figure  4 


The  second  procedure  in  the  loop  is  PLAYERTURN 


This 


procedure  as  its  name  indicates,  handles  the  human  players 
turn.  It  consists  of  a  loop  which  displays  an  option  menu 
and  three  procedures  which  can  be  executed  any  number  of 
times.  The  three  procedures,  named  REPORT( t  he  same  procedure 
as  the  first  one  in  the  main  loop),  ORDERS,  and  WPNALYSIS, 
print  the  reports,  handle  the  players  orders  (the  choices  as 
to  what  to  buy,  scrap,  or  fund),  and  analyzes  a  weapon  system 
respectively.  A  fourth  option  calls  another  routine  named 
EXORDERS  and  breaks  out  of  the  players  turn  loop.  EXORDERS 
executes  the  orders  the  player  has  made  which  signifies  the 
end  of  the  players  turn  and  the  beginning  of  the  computers 
turn  (see  figure  5). 

Player  Function  Menu 

1.  Reprint  the  reports. 

2.  Enter  this  years  orders. 

3.  Perform  weapon  system  analysis. 

4.  Finished,  execute  orders  and  proceed  to  next  year. 

Please  enter  the  number  of  the  option  you  wish  to  perform. 

(or  type  H  for  help) 


T:  :  '  is  the  :air.  function  c  e  r  u  .  Y  c  u  r  options  are  as  fellows: 

1/  Reprint  the  reports. 

This  option  lets  you  view,  once  again,  your  current  force  structure, 
proposed  R&D  projects,  snd  the  intelligence  reports. 

2)  Enter  this  years  orders. 

This  is  where  you  tell  the  computer  which  systems  you  want  to  buy  snd 
scrap,  which  R&D  projects  to  fund  or  shelve,  snd  what  types 
of  intelligence  reports  you  want  to  purchase.  These  orders  are  not 
final  snd  can  be  changed  any  number  of  times  in  a  year.  They  become 
final  only  when  option  4  1  *  selected. 

3)  Perform  weapon  system  analysis. 

This  option  allows  you  tc  determine  how  valuable  a  weapon  system  is. 
The  value  is  in  terms  of  Utils  per  dollar.  You  will  be  asked  to 
input  all  pertinent  information  about  the  system  you  wish  to  analyse 
(this  information  is  obtained  from  the  reports  option). 

4J  Finished,  execute  orders  and  proceed  to  next  year. 

This  option  should  he  performed  after  you  have  finished  any  analysis 
srd  have  entered  your  orders.  It  signifies  the  end  of  your  turn. 

* 

press  enter  to  continue 


figure  5 . 
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The  computers  turn  is  handled  by  the  third  procedure  in 
the  main  loop  and  is  called  COMPTUHN.  (Despite  the 
sequential  nature  of  the  program,  the  computer  receives  no 
advantage  by  going  second  as  none  of  the  information  just 
entered  by  the  human  player  is  available  to  the  expert 
system).  CO UPTURN  is  the  computerized  player  and  all 
heuristics  governing  the  computers  selections  are  contained 
in  it.  The  flow  of  the  routine  is  as  follows:  First  the 
best  offensive  and  defensive  weapon  systems  of  all  the 
currently  known  systems  are  determined.  Then,  if  the  best 
systems  are  ones  that  need  R&D  funding,  the  appropriate  costs 
are  paid.  Next  the  best  operational  offensive  and  defensive 
systems  are  determined  and  if  there  are  any  currently  in  the 
inventory,  the  appropriate  operation  costs  are  paid.  If 
there  are  any  excess  systems  they  are  scrapped  but  if  there 
is  any  money  left,  new  systems  are  bought.  There  was  seme 
initial  concern  about  the  time  it  would  take  the  computer  to 
take  its  turn,  but  as  it  turned  out,  this  entire  procedure 
takes  no  more  than  five  seconds. 

After  the  computer  has  selected  its  moves,  the  fourth 
procedure  in  the  main  loop,  called  ENDOFYEAR,  is  executed. 
It  is  in  this  routine  that  the  results  of  the  players  and  the 
computers  moves  is  determined.  (While  the  program  runs  the 
turn  sequentially;  as  if  the  human  player  "moved"  first,  this 
routine  actually  handles  them  as  if  they  were  made 
simultaneously.)  It  is  in  this  routine  that  the  penalties 


for  unbalanced  forces  are  applied.  After  the  penalties  are 
levied,  the  computer  determines  who  is  ahead  at  the  end  of 
the  year  and  reports  its  findings.  The  last  item  this 
routine  accomplishes  is  to  determine  if  a  war  broke  out  this 
year  and  if  one  did,  who  the  winner  was  (see  figure  6). 
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Due  t  c  worldwide  tensions,  a  war  brcke  out  t hi  *  year.  Thi«  brief  war  ended  with 
ycu  as  the  LOSEF.  Your  budget,  consequently,  has  been  reduced  by  $800. 
press  returt  to  continue 


figure  6 . 

The  final  procedure  in  the  main  loop  is  the  already 
mentioned  PRNTRPRT.  The  procedure  prints  the  information  used 
by  the  M.l-based  ICAI  system  to  the  appropriate  file.  Before 
it  does  this,  it  has  to  translate  all  numeric  data  to  its 


ASCII  representation. 


After  the  routines  in  the  loop  have  been  executed  eight 
times,  the  loop  is  complete  and  the  final  procedure, 
ENDOFGAKE,  is  executed.  The  procedure  prints  the  year  by 
year  util  total  along  with  anotating  in  which  years  a  war 
occurred.  It  also  calculates  and  reports  who  the  ultimate 
winner  of  the  game  is.  When  this  is  done,  the  TEMPO  war  game 


is  finished 


V I  .  The  Inte  1 1 i&ent  Instructor 


After  completion  of  the  game,  there  exists  eight  files  of 


information.  Gathered  each  game  turn,  these  files  contain 


data  concerning  the  decisions  made  by  the  players  in  each  of 


the  game  turns.  This  data  is  read  in  by  a  separate  program, 


written  in  M.l,  which  evaluates  the  decisions  made  and 


displays  information  to  the  player  on  how  well  the  game  was 


played  and  where  mistakes  were  possibly  made.  This  is  the 


intelligent  computer  aided  instruction  portion  of  the  system. 


The  reason  an  evaluation  is  not  made  during  the  course  of  the 


game,  is  that  this  system  was  modelled  after  the  SOS  version 


of  the  game,  where  the  game  is  finished  and  then  the  section 


leader  leads  the  students  in  a  discussion  of  their 


performance,  pointing  out  where  mistakes  might  have  been 


made.  The  ICAI  system  takes  the  place  of  this  section 


leader  . 


The  reason  M.l  was  selected  to  write  the  ICAI  system  in 


was  simply  a  matter  of  availability.  The  Air  Force  Institute 


of  Technology  currently  has  several  copies  of  M.l  which  are 


used  in  a  short  course  in  artificial  intelligence.  M.l  is 


not  the  only  knowledge  engineering  tool  available  for  the  IBM 


PC  and  compatables,  nor  is  it  the  least  expensive.  There 


exists  several  different  tools,  including  versions  of  0PS5, 


which  vary  in  price  from  a  few  hundred  dollars  to  a  few 


mmmm 


thousand  dollars.  The  choice,  as  mentioned,  was  purely  based 
on  current  availability.  A  list  of  other  currently  available 


knowledge  engineering  tools  can  be  found  in  table  1. 

Knowledge  Engineer  ing 

Knowledge  engineering  systems,  which  M.l  is  designed  to 
help  build,  are  designed  around  two  major  components;  a 
knowledge  base  and  an  inference  engine.  The  knowledge  base 
contains  the  rules  and  facts  necessary  to  accomplish  the 
given  task  and  the  inference  engine  is  the  part  of  the  system 
that  uses  these  facts  and  rules  to  arrive  at  some  decision. 
In  the  case  of  knowledge  engineering  tools  such  as  M.l,  the 
inference  engine  is  part  of  the  package  and  the  job  of  the 
programmer  is  to  obtain  the  necessary  rules  and  form  them 
into  statements  useable  by  the  knowledge  enginnering  tool. 

The  acquiring  of  the  knowledge  for  the  system  is, 
therefore,  the  primary  task  of  the  programme!.  A  special 
name  is  given  to  these  individuals,  who  are  now  known  as 
knowledge  engineers.  The  knowledge  engineer  interacts  with 
an  expert  in  the  subject  to  obtain  the  information  needed  by 
the  system.  Once  obtained,  this  information  can  then  be 
formalized  into  the  structure  needed  by  the  system.  The 
obtaining  of  the  knowledge  from  the  expert  is  the  most 
difficult  portion  of  the  knowledge  engineer's  task.  This  is 
due  to  the  fact  that  experts  generally  expre  s  their 
reasoning  in  terms  too  broad  for  use  in  the  system.  The 
knowledge  engineer  must  then,  by  observing  the  expert  "in 
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action",  and  by  asking  questions  and  interviewing  the  expert, 
determine  what  basic  rules  were  used  in  the  larger  reasoning 
process.  As  can  be  inferred  from  this  discussion,  the 
knowledge  engineer  and  the  expert  are  two  seperate 
individuals,  indeed,  most  literature  encourages  that  this  be 
the  case.  In  some  cases,  however,  it  is  advantagous  or 
necessary  that  the  expert  and  the  knowledge  engineer  be  the 
same  individual.  Generally  this  is  when  the  rules  generated 
are  "cut  and  dry"  (such  as  devising  an  expert  system  to 
assist  in  the  filling  out  cf  travel  vouchers)  or  when  there 
is  a  language  available  to  assist  the  domain  expert  in  the 
development  of  the  knowledge  base  (such  as  K.l)  or  when  the 
most  availabel  expert  is  the  knowledge  engineer.  Such  is  the 
case  for  the  TEMPO  system,  where  the  best  expert  on  the 
system  was  also  the  individual  programming  the  system.  The 
reason  this  still  worked  was  that  the  knowledge  needed  for 
the  ICAI  system  concerned  the  types  of  mistakes  that  students 
make  in  the  course  of  the  game,  and  why  they  are  mistakes. 
The  knowledge  obtained  for  this  portion  of  the  program  came 
from  repeated  observations  of  individuals  playing  the  game. 
The  task  of  the  knowledge  engineer  was  then  to  simply 
determine  why  the  decision  made  was  a  mistake  and  how  and  why 
the  student  made  it.  In  TEMPO  there  are  a  few  basic  concepts 
that  are  being  taught.  Mistakes  generally  involve  a 
misunderstanding  of  these  concepts. 


Concepts  _in  TEMPO  and  their  M .  1  Rules 

As  was  explained  earlier,  TEMPO  is  a  force  planning 
exercise.  The  game  was  designed  to  teach  the  importance  of 
comparing  the  value  of  weapon  systems  in  order  to  obtain  the 
"most  bang  for  the  buck".  Additionally,  the  game  brings  out 
other  concepts  such  as  the  point  of  diminishing  returns  and 
the  idea  of  a  balanced  force  posture.  When  any  one  of  these 
concepts  is  not  fully  understood  by  the  student,  mistakes  are 
made  which  lead  to  a  less  than  optimum  force  structure.  The 
PASCAL  program  makes  no  determination  as  to  the  worth  of  the 
human  players  moves,  it  simply  carries  out  the  orders  given 
to  it  and  at  the  end  of  each  turn  records  information  by 
writing  it  to  one  of  eight  files  representing  each  of  the 
different  game  turns.  These  files,  written  in  ASCII,  are 
then  read  in  after  the  game  by  the  M.l  ICAI  system  and  are 
used  to  evaluate  the  comprehension  of  the  simple  game 
concepts  by  the  student. 

One  of  the  game  concepts,  referred  to  as  the  "more  bang 
for  the  buck"  concept,  is  demonstrated  in  figure  7.  In 
this  figure  two  weapon  systems  are  compared,  AEM-1  and  ABM-2. 
At  first  glance  they  seem  to  be  roughly  equal  since  both 
offer  twice  the  number  of  utils  as  the  yearly  operation  cost 
(a  good  rule  of  thumb  when  choosing  the  best  weapon  system). 
In  fact  since  they  are  so  close,  t  h  e  player  might  be  tempted 
to  go  with  the  system  that  is  currently  available  and 


actually  costs  less  per  unit 


As  can  be  seen  this  is  not  the 


correct  choice  since  the  more  expensive  system  actually  is 
the  better  of  the  two.  This  type  of  mistake  is  the  most 

common  one  made  in  TEMPO,  especially  if  the  player  is  trying 
to  hurry.  Since  this  error  is  so  common  it  is  one  of  the 
ones  that  is  checked  for  in  the  ICAI  portion  of  the  program 
(see  figure  8). 

Enter  the  nine  of  the  vtitco  iyi;ec.  A  B  M  -  1 

Enter  tne  cuicer  of  years  to  rue  the  analysis.  10 

Enter  the  cumber  cf  year*  cf  R&£  left.  0 

Enter  the  s  y  s  t  e  a.  acqu;st: on  ccst.  30 

Enter  the  lyuer  yearly  operation  cctt.  1C 

Enter  the  systec  util  value.  2  C 

Enter  the  1st  year  R  i  2  ccst  venter  a  0  if  none.  0 
Enter  the  2  n  c  year  FoT  cost.  C 
Enter  the  3rc  yea:  Rat  c  :  s  t  .  C 
Enter  the  purchase  licit.  3  0 

The  utils/'  percentage  fer  the  ABM- I  is  146  l 
press  return  tc  continue 


Enter  the  nave  of  the  weapon  lyttes.  ABM-2 
Enter  the  number  of  years  to  run  the  analysis.  10 

Enter  the  number  of  years  of  R&D  left.  2 

Enter  the  system  acquistion  cost.  80 
Enter  Che  system  yearly  operation  coat.  50 
Enter  the  system  util  value.  110 

Enter  the  1st  year  B  6  D  cost  (enter  a  0  if  none).  560 
Enter  the  2nd  year  B4D  cost.  1090 

Enter  the  3rd  year  R6D  cost.  0 

Enter  the  purchase  limit.  20 

The  utils/' $  percentage  for  the  ABM-2  is  186  Z 
press  return  tc  continue 

figure  7 . 
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figure  8 


Another  very  common  mistake  is  to  overspend  the  budget. 
This  is  a  very  crucial  error  because  it  causes  the  players 
next  year's  budget  to  be  reduced  (this  is  so  crucial  that  the 
computer  expert  system  is  designed  so  that  it  never  goes  over 
its  budget).  Because  this  is  a  common  error,  not  only  is 
this  checked  for  in  the  ICAI  system  (figure  9)  but  an  example 
is  also  included  in  the  event  that  the  system  determines  that 
this  is  a  re-ocurring  problem  (figure  10).  This  is  the  type 
of  thing  that  separates  an  ICAI  system  from  a  CAI,  the 
analysis  of  the  students  problems  and  the  tailoring  of  the 
session  to  him. 


One  final  example  of  a  game  concept  checked  for  in  the 
ICAI  portion  of  the  program  is  the  concept  of  not 
overdefend ing .  If  so  much  money  is  spent  on  a  defensive 
system  type  that  it  completely  o v e r c omp en s a t e s  for  an 
opponents  offensive  system,  then  money  is  being  wasted.  The 
ideal  situation  is  to  have  exactly  the  number  of  defensive 
utils  as  your  opponent  has  offensive.  Since  this  is  very 
rare,  the  next  best  thing  is  to  have  slightly  fewer  defensive 
utils  than  your  opponents  offensive.  The  M.l  code  checking 
for  this  is  she.  n  in  figure  11. 


it  overspent  *  OV  and 
OV  «  1  *nd 

d:splay(l'You  overspent  your  budget  this  year.  '  , 

'This  is  «  critical',  n  1  ,  '  m  :  s  t  a  k  e  as  it 

'will  result  in  a  reduced  budget  the  n  e  x  t '  ,  n  1  , 

'year  as  veil  as  causing  you  to  lose  ', 

'some  of  your  systems. '  ,  o  1  , 

'The  systems  lost  may  not  be  ones  you 
'would  have  wished  to' ,ol  ,  '  lose  ,  they', 

'are  picked  by  the  computer  at  r a nd os  .  '  ,  n  1  ,  n  1  ]  ) 
then  cycle  X  overspent  check  is  complete. 


if  overspent  *  OV  and 
0  V  *  2  and 

display (('You  overspent  your  budget  again.  , 

'This  is  a  cr  it  ical'  ,nl , 

'error  and  it  ia  extremely  important 
'that  you  ensure  that '  ,d1 , 

'you  remain  within  budget  each  y e a r  . '  ,  o  1  ,  n  1 J  ) 
then  cycle  X  overspent  check  is  complete. 


figure  9  . 


if  overspent  *  OV  and  OV  >  4  and 

d  i  s p  1  a y (  l ' You  have  once  again  overspent  ', 
'your  budge t  o 1  ,  o 1 } ) 
then  cycle  X  overspent  check  is  complete. 


50'  ,nl  , 

2  5'  ,  n 1  , n 1 


if  ovrcady  *  yes  and 

display (['If  you  have  the  following,  what  ', 

'is  your  budget  cost  ?'  ,ni  ,n 1  , 

'Bi  -->  Ac  c  cost  ■  100,  Ops  cost  *  50',  n  1 
'FI  -->  A  c  q  cost  *  50,  0p6  cost  *  25', nl 
'Ycur  current  inventory  contains  ', 

'5  Bis  and  2  Flf.',oi,ni, 

'You  wish  tc  purchase  ar.  additional', 

5  Bis  and  4  F 1 s . ' , r 1 , n 1 , 

'You  want  an  intelligence  report  ', 

'on  offensive  RAD.',oi,ol, 

'You  with  to  fund  RAD  on  a  B2 ,  cost  200  ', 
'for  1st  year . '  ,  nl ,nl ) )  and 
ovcost  *  1300  and  d i s p ! a y ( 1 ' Co r r ec t ' , n 1 J ) 
then  ovspent  is  complete. 


figure  10. 


if  overdefend  «  OD  and 
OD  •  0 

then  cycle  X  overdefend  check  is  complete. 


if  overdefend  ■  OD  and 
OD  *  1  and 


display ( l "You  overdef eoded  this  year.  , 
'This  seans  that  you  spent', nl, 
"core  ocney  on  defense  than  you  ", 
'needed  to.  Money  spent ' ,nl , 

'  in  this  Banner  is  refered  to  as  '  , 
'"Futile  utils’1  since  you  '  ,  o  1  , 
'receive  no  benefits  from  any  extra 
'defensive  util*  (thcy'.nl, 

'are  va $ t ed . ' , n 1 , n 1 ) ) 

then  cycle  X  overdefend  check  ia  complete. 


figure  11 


VII.  Conclusion  and  Analysis 


This  thesis  has  resulted  in  the  iir  p  1  e  oe  n  t  a  t  i  o  n  of  a  war 
game  which  meets  four  characteristics:  (1)  that  it  be 
implemented  on  a  machine  chosen  so  as  to  make  it  available  to 
as  many  officers  as  possible,  (2)  that  it  be  written  in  a 
manner  that  facilitates  changes  in  the  system  (make  it 
modifiable),  (3)  that  it  be  implemented  with  a  computerized 
player  expert  system,  and  (4)  that  it  contain  an  intelligent 
instructor  to  aid  in  the  learning  process.  The  game  has  been 
tested  a  number  of  times  and  is  an  extremely  competent 
opponent,  especially  against  first  time  players  of  the  game 


(it  is  undefeated  against  them) 


This  is  especially 


important  since  it  will  probably  be  played  only  once  or  twice 
by  most  individuals.  Against  experienced  opponents  the 
expert  system  doesn't  fare  as  well,  winning  just  over  fifty 
percent  of  the  time.  This,  however,  is  more  a  function  of 
this  game,  or  any  game  for  that  matter,  since  if  two 
experienced  opponents  were  to  play  each  would  be  expected  to 
win  half  the  time.  The  outcome  of  the  game  is  only  one  way 
to  measure  the  success  of  the  implementation  of  the  game.  A 
second  measure  is  the  impact  it  can  have  on  professional 
military  education  seminar  courses.  As  a  result  of  this 
thesis,  it  has  now  been  shown  that  it  is  possible  to 


implement  useful  war  games,  on  widely  available 
microcomputers,  and  have  them  stand  alone  using  the  expert 


ffl 


system  computerized  player  concept.  Other  war  games,  now 
only  available  at  the  residence  courses,  can  also  be 
implemented  thus  making  seminar  courses  that  much  more 
meaningful.  Another  measure  of  success  is  the  modifiability 
of  the  program  which  was  tested  as  enhancements  were  made  to 
the  original  version  of  the  game. 

Enhanc  enent s  t  o  TEMPO 

Conversations  with  War  Gaming  Center  personnel  from 
Maxwell  AFB  in  Alabama,  led  to  a  list  of  several  ways  to 
enhance  the  original  version  of  TEMPO.  Among  these 
enhancements  was  the  idea  of  providing  the  players  with  the 
opportunity  to  deceive  their  opponent  by  funding  non- 
operational  systems  that  only  showed  up  in  the  intelligence 
reports.  This  idea  was  added  to  the  TEMPO  program  (  see 
figure  12)  and  took  only  about  two  hours  to  complete.  While 
it  would  take  someone  who  does  not  know  the  code 
significantly  longer  to  accomplish,  it  does  give  a  rough  idea 
of  how  long  it  should  take. 

Another  enhancement  made  to  the  game  was  to  provide  the 
participants  the  ability  to  declare  war  at  a  time  of  their 
own  choosing.  Beth  this  and  the  previous  enhancement  are 
implemented  so  that  they  either  can  be  used  or  ignored  at  the 
discretion  of  the  individual  setting  up  the  weapon  system 
data  file  (both  options  have  flags  set  in  this  file,  see 
figure  13).  While  this  second  enhancement  took  longer  to 


implement,  it  was  much  more  involved  and  required  the 
addition  of  several  new  rules. 


Analys is  o  f  M . 1  and  the  Intelligent  Instructor 

The  intelligent  instructor  is  an  extremely  important 
portion  of  the  system.  If  no  instructor  is  available,  it 
takes  significantly  longer  for  the  player  to  grasp  the 
concepts  contained  in  the  program.  The  intelligent 
instructor  portion  of  this  system  suffers  from  one  main 
problem;  players  are  continually  finding  new  ways  to  make 
mistakes  and  to  lose  the  game.  This  means  that  the 
instructor  portion  of  the  system  is  continually  evolving. 
While  it  was  decided  that  M.l  was  not  capable  of  handling  the 
war  game  itself,  it  is  suited  to  the  evolving  instructor. 
M.l  is  awkward  to  use  when  large  amounts  of  data  are  to  be 
analyzed  (number  crunching)  and  it  doesn't  provide  for  easy 
ways  to  loop  or  nest  loops.  It  is,  however,  very  easy  to  add 
rules  to  once  they  are  structured  in  an  IF  .  .  THEN 

f  o  rma  t  . 

R e c  omme nd a  t  i  on  s  and  Areas  for  Further  Study 

AI  can  help  solve  several  problems  that  exist  in  current 
war  games.  First  and  foremost  is  the  idea  of  the  "unknown 
unknowns".  There  are  actually  two  issues  here,  how  to  create 
the  unknowns  to  be  used  in  the  games  and  how  to  handle  them 


For  the  B- 1  weapon  lyitee,  you  currently  have  AO  id  your  inventory. 
How  rany  do  you  wish  to  BUY?  0 


How  many  do  you  wish  to  SCF.AP?  0 

How  many  do  you  wish  to  purchase  for  DECEPTION?  10 


Line  829  Col  1  Insert  Indent  A:ETEMPO.PAS 


mod  1  io :  write! 'How  cany  do  you  wish  to  be  MOD  I F C AT  1  ON S ?  '); 

readintnutt!®odfyl  xx]  )  ; 

if  irodfylxx]  >  systvalslpsyslxx.l  ]  ,  9  )  then 
begin 

wr ite( 'Your  modify  order  exceeds  the  limit  for  this  ' )  ; 
vr iteln! 'system  of  0  , s y s t va 1  a  1 ps y a l xx  ,  1 1 , 9 ) ) ; 
goto  sod  1  is ; 
end; 

end  ; 


if  deception  »  1  then 
begin 

w  r  i  t  e  1  n  , 

write! 'How  sany  do  you  wish  to  purchase  for  DECEPTIOH?  '); 
readiotruitl  tmparay  I  xx  ,3  ]  )  ; 

if  t sp ar a y l x x , 3 ]  <0  then  t sp a r a y [ x x  ,  3  )  :»  0; 
end  ; 


figure  12. 


writ*  ('  Defective  KID?  '); 
read  i  n ( templet)  ; 

if  < <copy( templet  ,  1  ,1  )  -  'T*>  or  < c op y < t e«p 1 e t . 1  , 1 ) 
t  mtel  ( *.  i  .  •  1  ; 

end  ; 


' y ' ) )  then 


if  war  f 1 ag  *  1  then 
begin 

t mpdec lwar  : •  0 ; 
e  1  r  a  c  r  ; 

write('Do  you  want  to  declare  war?  (Y/N)  '); 
read  ln( templet) ; 

if  ( ( c  opy ( templet ,1,1)  *  'Y')  or  ( copy! tenplet ,1,1)  ■  'y'))  then 
tmpdeclwar  : •  1; 

end  ; 


figure  13 
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have  been 
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first  of  these  can 

be 
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The  problem  6till 

remains 

,  however , 

that 

the 

unknowns  are  limited  to  some  humans  experience  or  creativity. 
It  would  be  much  more  interesting,  and  also  much  harder,  to 
devise  an  AI  system  which  could  develop  these  unknowns.  This 
entails  creating  a  system  that  can  be  creative  and  reverts 
back  to  one  of  the  basic  research  areas  in  AI.  The  second 
issue  involved  in  the  use  of  unknowns,  how  to  handle  them 
once  they  are  introduced,  is  a  much  more  obtainable  goal  and 
is  one  that  is  more  useful  to  war  gaming.  Currently, 
unknowns  are  unpopular  because  they  are  considered  "unfair" 
by  the  participants  (but  then,  war  is  unfair)  and  to  try  to 
consider  all  of  the  possible  factors  that  could  affect  a  move 
results  in  an  information  overload  problem.  Since  computers 
are  good  at  reducing  the  problems  created  by  information 
overload,  there  is  a  real  use  for  them  to  do  so.  This  then 
is  the  next  area  for  study;  to  implement  a  category  two  game 
in  which  the  capablility  to  handle  unknowns  is  created. 

Finally,  it  is  recommended  that  the  Air  Force  take  a  look 
at  its  residence  courses  in  order  to  identify  war  games  and 
simulations  that  could  be  implemented  on  microcomputers  to 
make  seminar  courses  more  valuable.  By  doing  so,  officers 


could  receive  professional  military  education  in  seminar 
courses  that  more  closely  reflects  the  current  curriculum  at 
the  residence  schools.  This  same  idea,  of  using  computers  to 


help  teach  the  seminar  course, 


could  be  applied  to  other 


areas  besides  gaming  and  simulation  as  veil. 


The  Future  o  f  War  Gaming 

This  thesis  has  shown  that  it  is  possible  to  implement  a 
useful  war  game  on  a  microcomputer  thus  making  it  available 
to  a  larger  segment  of  the  officer  corps  than  had  access  to 
it  before.  In  the  future,  it  is  envisioned  that  entire 
courses  could  revolve  around  a  series  of  war  games  that  the 
student  pulls  off  of  a  shelf  and  plays.  Each  game  would  be 
designed  to  teach  a  different  concept  and  an  1CAI  system 
could  help  facilitate  the  learning  process.  As  the  computer 
expert  systems  get  better  at  handling  the  unknowns,  which  are 
the  last  bastion  of  human  capability,  more  and  more  of  the 
battlefield  decision  processes  can  be  assumed  by  computers. 
At  the  very  least,  the  proliferation  of  computer  war  games 
would  increase  the  war  fighting  capability  of  our  military 
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APPENDIX  A. 

( Progracners  Manual) 


TEMPO  (Main  routine) 

Purpose:  This  is  the  main  driver  for  the  game. 

Parameters  Passed:  none. 

Calling  Routines:  none. 

Routines  Called:  ENDOFGAME,  ENDOFYEAR,  INIT,  PLAYERTURN 

PRNTRPRT,  REPORT. 

Description:  The  main  routine  starts  off  by  calling 

INIT  to  initialize  the  arguements  used  in  this  program.  It 
then  sits  in  a  FOR  loop  for  eight  repetitions.  Each 
repetiton  consists  of  calculations  to  determine  each  players 
budget  and  calls  to  REPORT,  PLAYERTURN ,  ENDOFYEAR ,  and 
PRNTRPRT.  After  the  loop  is  complete,  ENDOFGAME  is  called. 
The  budget  calculated  is  the  same  for  both  the  computer  and 
the  human  player  unless  the  player  exceeds  the  budget  or  a 
war  occurs.  In  any  case,  the  amount  that  each  budget  is 
increased  by  is  the  sane  for  both  sides.  The  budget  is  never 
allowed  to  go  below  1500,  this  insures  that  the  player  will 
always  have  some  money  to  work  with. 


Global  Variables: 

budget  --  the  current  years  computers  budget, 
buogetny  --  next  years  projected  computers  budget, 
chancewar  --  the  chance  of  a  war  occuring  this  year, 
bestbm'o  —  best  bomber  (a  pointer), 
bestdef  --  best  defensive  system  (a  pointer), 
best m si  --  best  missile  (a  pointer), 
cabmtot,  cabmcnt  --  computer  abm  total/count, 
cbmbtot,  cbmbcnt  --  computer  bomber  total/count, 
cftrtot,  cftrcnt  --  computer  fighter  total/count, 
cmsltpt,  cmslcnt  --  computer  missile  total/count, 
csys  --  an  array  which  contains  the  information  about  the 
weapon  system  the  computer  owns  or  is  developing. 
There  are  a  maximum  of  20  systems  and  the  info 
contained  on  each  is  as  follows: 

[xx,l]  -->  pointer  to  systvals  for  which  system 
this  is. 

[xx,2]  -->  the  number  of  this  weapon  system 
currently  in  the  inventory. 


lxx,3J  —  >  a  flag  which  tells  if  the  system 

is  operational  (=0),  currently  having 
R&D  funded  (=1),  or  she lved( -x  with  x 
being  the  year  shelved  in), 
csysutil  --  (reserved  for  future  development), 
in tel  --  an  array  of  four  flags,  one  for  each  type  of  intel 
report,  which  represent  the  type  of  reports  funded 
for  this  year  (used  in  REPORT  procedure  to  tell 
wha  t  to  print). 

lineprt  —  a  variable  to  be  filled  to  be  used  to  print  to 
a  file. 

modfy  —  array  (one  location  for  each  wpn  system)  used  to  help 
with  the  modification  of  weapon  systems, 
overdefend  --  flag  to  set  if  player  overdefended  this  year, 
overspent  --  flag  to  set  if  player  overspent  budget  this  year, 
overspentcnt  —  number  of  times  player  overspent  budget, 
pbudget  --  players  budget  this  year. 

pbudgetleft  —  used  in  calculations  to  determine  the  amount 
of  the  players  budget  left, 
pbudget ny  - -  projected  next  years  players  budget, 
pabmtot,  paomcnt  —  player  abm  total/count, 
pbmbtot,  pbmbcnt  - -  player  bomber  total/count, 
pftrtot,  pftrcnt  --  player  fighter  total/count, 
pmsltot,  pmslcnt  --  player  missile  total/count, 
psys  --  players  systems,  sane  layout  as  csys. 
rndaray  --  array  used  in  ORDERS  procedure  to  take  players 
orders  concerning  R&D.  There  is  one  entry 
for  each  veapon  system  and  each  has  three  parts: 
[xx,l]  -->  equal  to  1  if  R&D  to  be  funded. 

I xx , 2 ]  -->  if  last  year  for  R&D  and  it  was 

funded,  then  player  can  buy 
systems,  this  contains  the  number 
of  systems  player  wants  to  buy. 

[xx,3]  -->  number  of  systems  player  wants  to 
be  modifications  (if  applicable), 
sysdata  --  for  reading  in  the  weapon  system  data, 
sysrprt  - -  for  writing  out  the  I  C  A I  information, 
system p  --  temporary  variable  of  record  type  fileline, 
systname  --  the  array  containing  the  weapons  system  names. 

there  is  a  1-to-l  c o r r e s p ond a nc e  with  this  and 
the  systva  Is  and  systutils  arrays, 
systutil  --  the  array  which  receives  the  calculated  util/$ 
value  for  the  systems,  there  is  a  1-to-l 
correspondence  between  this  and  systvals  and 
systname  . 

systvals  --  the  array  which  contains  all  of  the  values 

associated  with  the  weapon  systems.  There  are 
1  1  vaiues  associated  with  each  as  follows: 

[xx,l]  -->  acquisition  cost 
[xx,2]  -->  yearl  operations  cost 

! xx  ,  3  ]  —  >  system  yearly  util  value 
1 xx  ,  4  ]  —  >  year  to  be  offered  for  R&D 
[xx,5]  —  >  number  of  years  of  R&D  to  do. 


lxx,6]  -->  first  year  R&D  cost. 

[xx,7]  -->  second  year  R&D  cost. 

[xx,8]  -->  third  year  R&D  cost. 

[ xx  ,  9 3  -->  the  yearly  purchase  limit. 
lxx,10]  ->  the  modification  cost. 

[xx,ll]  ->  flag  to  say  if  mod  available, 
has  a  1-1  relation  with  systutil  &  systname. 
tempbudget  --  temporary  value  to  help  determine  budget, 
tintel  --  temporary  array  used  to  hold  intel  orders  until 
they  are  made  final  by  EXORDERS, 
tmparay  - -  temporary  array  used  to  hold  buy  and  scrap  orders 
until  they  become  final  by  EXORDERS, 
utilaray  --  array  to  hold  computers  and  players  yearly  util 
totals  (used  to  determine  game  winner), 
utlsperdol  --  figure  to  hold  analysis  figure, 
warcount  --  count  of  number  of  wars/2 
x  --  temporary  looping  variable, 
year  - -  the  game  turn  (the  year). 


COMPTURN 


Purpose:  this  procedure  handles  the  computers  turn. 

Paramaters  Passed:  non* 

Calling  Routine:  PLAYERTURN  (done  after  player  has 

finished  but  before  players  orders  are  executed). 

Routines  Called:  NYRANLYS 

Description:  The  procedure  starts  off  by  determining  the 

utils  per  dollar  value  for  all  available  weapon  systems  up  to 
that  point.  With  theses  values  determined,  it  uses  them  to 
check  it  operational  systems  and  then  the  proposed  R&D 
systems  to  determine  the  best  bomber,  missile  and  defensive 
system.  If  the  best  system  is  an  R&D  one  then  funds  are 
expended,  otherwise  R&D  is  stopped  for  any  current  R&D 
projects.  After  any  P.  &  D  costs  are  paid  the  procedure 
determines  the  best  operational  systems  for  each  type  (both 
defensive  types  included)  ,  ops  cost  paid  for  any  currently 
in  the  inventory,  1500+  taken  out  of  budget  to  help  assure 
some  sort  of  balance  offensive  and  defensive  wise,  and  any 
other  systems  scrapped.  Then  with  the  remaining  money,  buy 

offensive  systems  maintaining  the  2-to-l  ratio  of  best  to 
second  best.  Then  any  remaining  money  is  determined,  the 
1500+  added  to  it  and  the  same  thing  done  for  the  defensive 
systems.  At  the  end  the  procedure  checks  to  make  sure  that 
it  can't  buy  even  just  one  more  system,  thus  always  trying  to 
spend  as  much  of  the  budegt  as  possible. 

Routine  Specific  Variables  Used: 

bestbnbflag  —  flags  used  to  mark  whether  the  best 
systems  need  R&D  funding  or  not. 

bestdefflag  " 

bestmslflag  " 

bstabminv  --  temporary  location  to  contain  the 
current  inventory  of  the  best  operational  weapon  systems, 
b  s  t  bmb inv  " 

bstftrinv  " 

bstmslinv  " 

bstopabm  --  pointers  to  the  best  operational  systems 
bstopbmb  " 

bstopftr  " 

b  s  t  opm  s  1  " 

budgetleft  - -  used  to  keep  track  of  the  budget  left, 
dptr  --  temporary  pointer 

numbuy  --  number  of  weapon  systems  to  buy. 
ofopscost  --  offensive  operations  cost, 
optr  --  temporary  pointer 
templet  --  temporary  letter, 
tempval  --  temporary  integer  value. 

xx, yy  --  temporary  integers  for  looping  purposes. 


DISPLAYMENU 


Purpose:  To  display  the  primary  option  menu: 

Paramaters  Passed:  none. 

Calling  Routine:  PLAYERTURN. 

Routines  Called:  none. 

Description:  The  procedure  does  nothing  more  than  to  clear 

the  screen  and  then  display  the  Player  Function  Menu. 

Routine  Specific  Variables  Used:  none. 


EHDOFGAME 


Purpose:  This  procedure  is  called  at  the  end  of  the 

gane  to  display  the  yearly  totals  and  declare  an  overall 
winner  for  the  game. 

Parameters  Passed:  none. 

Calling  Routine:  TEMPO. 

Routines  Called:  none. 

Description:  The  procedure  starts  by  printing  the 

yearly  util  totals  for  both  the  computer  and  the  human  player 
and  also  reports  on  which  years  a  war  occured  in.  It  also 
adds  up  all  util  figures  for  both  sides  and,  based  on  these 
figures,  declares  an  overall  winner  for  the  game. 

Routine  Specific  Variables  Used: 

comptot  --  variable  used  to  accumulate  computers 
total  util  values. 

playtot  --  variable  used  to  accumulate  players 
total  util  values. 


ENDOFYEAR 


Purpose:  This  procedure  is  executed  at  the  end  of  each 

year  (game  turn).  It  calculates,  stores,  and  reports  on  the 
yearly  winner  as  well  as  the  likelihood  of  war. 

Parameter  Passed:  none 

Calling  Routine:  TEMPO 

Routines  Called:  none 

Description:  The  routine  starts  off  by  determining  the 

winner  (who  is  ahead  in  total  offensive  utils)  for  the  year. 
This  is  calculated  by  summing  each  forces  offensive  and 
defensive  utils  by  weapon  system  (i.e.  adding  all  utils  from 
all  bombers  up  and  putting  it  in  one  variable  and  all  utils 
from  all  missiles  in  another).  The  forces  are  then  checked 
to  determine  if  a  balance  is  maintained  (a  2-to-l  ratio  at 
least)  or  else  a  penalty  is  applied.  After  any  penalties 
have  been  applied  the  net  offensive  util  value  (your 
offensive  minus  your  opponents  defensive  utils)  is  applied-- 
all  values  less  than  zero  rounded  up  to  zero — and  the  yearly 
winner  determined.  The  winner  is  simply  the  individual  with 
more  net  offensive  utils.  Once  this  is  determined  it  is 
reported  to  the  player.  The  procedure  then  possibly  changes 
r&d  values  for  systems  that  have  at  least  2  years  remaining. 
This  is  to  reflect  the  inhering  uncertainty  in  such  figures 
as  well  as  to  model  things  such  as  cost  overruns.  Next,  the 
procedure  determines  if  a  war  occured,  and  if  one  did,  the 
result.  The  last  thing  the  routine  does  is  to  calculate  the 
chance  of  war  occuring  the  next  year.  NOTE:  one  programming 
problem  occured  since  TURBO  PASCAL  only  allowed  values  up  to 
32700  in  their  integer  variables.  A  check  is  made  to 
determine  we  don't  go  over  this  (which  shows  up  as  a  negative 
total  in  cofftot  and  pofftot). 

Routine  specific  Variables  Used: 

[  cofftot  --  'computer  offensive  total';  used  to  hold 

the  value  of  the  computers  total  offensive  utils  after  any 
penalties  have  been  applied. 

pofftot  --  'players  offensive  total';  same  purpose  as 
cofftot  except  for  human  player. 

ptr  ~ ~  a  temporary  oointer  into  the  weapon  system 
arrays,  used  only  for  ease  of  t y p  i  ng / u nd e r s t a nd i ng  . 

templet  --  a  temporary  character  variable  used  for 
character  input  ('temporary  letter'). 

tl,t2  --  temporary  variables  used  in  calculations  of 
offensive  util  totals. 

a  temporary  integer  valued  used  in  loops. 


xx 


EXORDERS 


Purpose:  To  execute  the  orders  entered  by  the  player 


Parameters  Passed:  none 


Calling  Routine:  PLAYERTURN. 


Routines  Called:  none. 


Description:  This  procedure  is  the  last  one  called  by  the 

player  each  game  turn  and  it  signifies  the  end  of  the  turn. 

Actually,  it  is  not  called  until  after  the  computer  selects  its 
moves  so  that  all  of  its  decisions  are  based  on  the  present 
player  configuration  and  not  the  players  orders  for  the  next 
year.  It  first  takes  care  of  all  scraps,  then  operation  costs 
for  current  systems,  then  buy  orders.  It  then  takes  care  of 
ongoing  R&D  projects,  and  then  new  RoD  projects.  Then 

modification  orders  and  intel  reports  are  handled.  Finally,  it 

is  checked  to  see  that  the  player  did  not  go  over  budget.  If  so, 

then  the  computer  will  start  throwing  out  weapon  systems  until 
the  budget  is  reached,  it  will  start  with  the  newest  systems 
first.  This  is  done  as  a  penalty  to  the  player  to  force 

compliance  with  the  budget. 

Routine  Specific  Variables  Used: 

Tempval:  temporary  value 

templet  --  temporary  letter 

xx, yy  --  temporary  looping  variables. 
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HELP  SCR 


Purpose:  To  display  the  appropriate  helpscreen. 

Parameters  Passed: 

helpscn  --  an  integer  indicating  which  help  screen  is 
to  be  displayed. 

Calling  Routine:  REPORT 

Routine  Called:  none 

Description:  This  procedure  first  opens  the  appropriate 

file  based  on  the  screen  number  passed  into  the  procedure.  It 
then  reads  in  and  prints  the  file  line  by  line  until  a  is 

reached  which  signifies  the  end  of  the  file.  It  then  waits  for 
the  player  to  hit  a  return  before  returning  to  the  calling 
rout ine  . 

Routine  Specific  Variables  Used: 

syshelp  —  file  variable  for  reports, 
helpln  --  variable  to  read  in  report, 
templet  --  temporary  letter. 


This  procedure  initializes  all  values  for  the 


Purpose: 
game  . 

Paramaters  Passed:  none. 

Calling  Routine:  TEMPO. 

Routines  Called:  none. 

Description:  The  procedure  starts  by  initializing  the 

budget  figure,  the  chance  of  war  variable,  and  a  few  of  the 
arrays  used  in  the  game.  It  then  reads  in  the  system 
variables  from  the  file  WPNSYS.DAT.  A  few  of  the  variables 
are  randomly  modified  so  that  the  game  is  different  each  time 
it  is  played.  After  all  weapon  systems  are  read  in,  the 
procedure  gives  each  side  its  initial  set  of  forces  (which  is 
the  same  for  both  sides)  and  zeroes  out  the  rest  of  the 
array  . 

Routine  Specific  Variables  Used: 

x  —  used  for  a  looping  variable. 
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HYRANLYS 


Purpose:  To  perform  multi-year  analysis  of  a  weapon  system. 

Paramaters  Passed: 

Nyr  --  number  years  to  run  analysis. 

Avlin  --  system  available  in  number  of  years. 

Acqcst  --  acqui6tion  cost. 

Opcst  --  operations  cost. 

Utls  --  util  value. 

Rdl  --  first  year  R&D  cost. 

Rd2  --  second  year  R&D  cost. 

Rd3  --  third  year  R&D  cost. 

purlim  --  purchase  limit. 

Calling  Routines:  COMPTURN,  WPNANALYS 

Routines  Called:  none. 

Description:  This  procedure  performs  an  analysis  of  a 

weapon  system  and  returns  a  value  representing  its  utils  per 
dollar  value.  The  calculation  is  straightforward,  dividing  all 
utils  obtained  for  the  given  period  by  the  total  cost  during  that 
time. 


Routine  Specific  Variables: 

Acqbugt  --  amount  of  budget  available  for  acquisitions. 
Opscost  --  total  opscost  for  year. 

Sysbght  --  integer  value  of  Sysbgt. 

Sysbgt  --  number  of  systems  bought  this  year. 

Totacqcst  --  total  acquisition  cost  (all  systems). 
Totlutils  --  total  util  values  (all  systems  all  years). 
Totrd  --  total  r&d  costs. 

Totopscst  --  total  all  operations  costs. 

wpnsbght  --  total  number  of  systems  bought  all  years. 

X  --  temporary  looping  variable. 

Yrsutls  --  this  years  utils. 
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ORDERS 


Purpose:  To  take  the  orders  of  the  player. 

Parameters  Passed:  none. 

Calling  Routine:  PLAYERTURN 

Routines  Called:  READINTNUM 

Description:  This  procedure  starts  by  asking,  for  each 

weapon  system  currently  in  the  players  inventory  (or  that  has  all 
R&D  costs  paid  for),  how  many  should  be  bought,  scrapped,  and  if 
applicable,  modified.  It  then  displays  a  synopsis  and  asks  if  it 
is  correct,  if  it  is  it  goes  on,  if  it  isn't,  the  player  gets  the 
chance  to  go  back  and  correct  anything.  Next,  for  each  proposed 
R&D  project  the  player  is  asked  if  funding  is  desired,  then  if 
funding  is  to  be  continued  on  the  systems  with  R&D  in  progress, 
then  if  R&D  should  be  resumed  on  any  shelved  systems.  As  before, 
the  player  is  asked  to  check  to  make  sure  it  is  correct,  if  not 
another  chance  is  given.  Finally,  the  player  is  asked  if  any 
intelligence  reports  are  desired.  If  some  are,  each  type  is 
asked  for  in  turn.  One  final  NOTE  *****  this  routine  does  not 
execute  the  orders  and  can  be  performed  as  many  times  as  desired 
before  the  turn  is  over.  The  turn  is  only  over  when  option  A 
from  the  primary  function  menu  is  selected. 


Routine  Specific  Variables  Used: 

answer  --  temporary  variable  to  receive  players 
answer  to  a  question. 

flag  --  used  to  help  determine  what  to  display, 
ptr  --  used  to  help  relieve  some  typing, 
templet  --  temporary  letter,  (for  answers  to  y/n). 
xx  --  temporary  looping  variable. 


typed 


PLAYERTURN 


Purpose:  To  handle  the  players  turn. 

Parameters  Passed:  none. 

Calling  Routine:  TEMPO 

Routines  Called:  COMPTURN,  DISPLAYMENU,  EXORDERS,  ORDERS, 

REPORT,  KPKANALYS 

Description:  This  procedure  consists  of  a  while  loop  that 

is  executed  until  the  player  enters  a  '4'  signifying  the  end  of 
the  game  turn.  If  any  response  is  entered  except  one  of  the 
requested  ones,  an  error  message  is  displayed.  Otherwise,  the 
appropriate  routine  is  called  for  the  response  entered. 

Routine  Specific  Variables  Used: 

answer  --  the  response  entered  by  the  player 


PRHTRPRT 


Purpose:  To  print  the  values  to  be  used  by  the  I C  A  l  portion 

of  the  overall  system. 

Parameters  Passed:  none. 

Calling  Routine:  TEMPO 

Routines  Called:  none. 

Description:  This  procedure  simply  prints  the  values  that 

will  be  used  by  the  ICAI  system.  It  writes  to  8  seperate  files, 
one  for  each  year.  The  files  are  called  'YEAR.x'  with  x  being 
the  year.  The  only  different  thing  about  the  routine  is  that  it 
has  to  translate  all  data  to  its  ascii  form  so  that  M.l  can  read 
it  (thats  the  only  format  that  the  knowledge  engineering  tool 
created  by  Teknowledge  can  read). 

Routine  Specific  Variables  Used: 

tecpstr,  ter.pstrg  --  temporary  strings  used  in  the 
conversion  processes. 


Purpose:  This  procedure  is  used  to  insure  that  an  integer 

is  read  in,  any  other  input  is  flagged  as  an  error  and  not 
allowed  (this  is  not  left  up  to  the  system  since  it  would 
cause  the  game  to  abnormally  terminate  if  a  mistake  were 
made)  . 

Parameters  Passed: 

num  --  the  integer  entered  by  the  player. 

Calling  Routines:  ORDERS,  WPNANALYS 

Routines  Called:  none. 

Description:  This  procedure  simply  reads  in  a  character 

input  and  converts  it  to  its  integer  equivalent  using  the 
PASCAL  function  VAL.  If  it  is  not  a  correct  character  it 
prints  an  error  message  and  waits  for  the  player  to  try 
again.  It  will  remain  in  this  procedure  until  a  correct 
input  has  been  made.  Once  an  integer  is  obtained,  it  is 
returned  in  the  parameter  NUM. 

Routine  Specific  Variables  Used: 

innum  --  the  character  input  by  the  player  to  be 
converted  to  an  integer. 

result  --  will  contain  the  result  of  the  conversion 
process  (if  not  equal  to  zero,  it  means  an  error  occured,  if 
it  contains  a  zero  then  no  error  occured  and  the  number  is  an 
int  ege  r  )  . 


REPORT 


Purpose:  This  procedure  prints  the  reports  that  lets  the 

player  know  what  the  status  of  his  forces  are,  any  R&D 
projects  projected  or  pending,  and  any  intelligence  reports 
that  were  paid  for. 

Parameters  Passed:  none. 

Calling  Routine:  PLAYERTURN,  TEMPO 

Routines  Called:  HELPSCR. 

Description:  The  procedure  first  displays  the  screen 

which  contains  the  players  current  force  structure.  It  then 
waits  for  the  player  to  either  request  the  help  screen  for 
this  display  (by  entering  an  'h'  or  an  'H';  the  procedure 
calls  the  help  screen  function  HELPSCR)  or  to  go  on.  The 
next  screen  displayed  is  the  one  showing  any  proposed, 
current  or  scrapped  R&D  projects.  If  there  were  none  then 
this  screen  is  skipped.  There  is  a  help  screen  for  this 
display  also.  The  final  report  displayed  is  the  intelligence 
screen  which  also  has  an  associated  help  screen. 

Routine  Specific  Variables  Used: 

deftop  --  defensive  total  operations  cost 

flag  --  flag  used  to  help  determine  when  to  print 

headers . 

inven  --  inventory  count  for  individual  wpn  system, 
offtop  --  offensive  total  operations  cost, 
ptr  --  temporary  pointer  to  make  it  easier  to  type, 
temparay  --  temp  array  used  to  hold  R&D  values 
templet  --  temporary  letter. 

tenpval , tempva  12  --  temporary  values  for  calculations 
to  determine  the  R  &  D  costs  for  the  current  years, 
topcost  --  total  operations  cost. 

totalop  --  total  operations  for  both  off  and  def. 
tutils  --  total  util  figure  for  a  weapon  system 
xx  --  temporary  looping  variable. 


WPNANALYS 


Purpose:  The  interface  for  the  player  to  perform  a  multi- 

year  weapon  system  analysis. 

Parameters  Passed:  none. 

Calling  Routine:  PLAYERTURN 

Routines  Called:  READINTNUM,  NYRANLYS 

Description:  This  procedure  simply  asks  all  questions 

needed  to  obtain  the  information  that  NYRANLYS  needs  to  perform 
the  multi-year  weapon  system  analysis.  After  it  receives  the 
answer  it  displays  it  for  the  player. 

Routine  Specific  Variables  Used: 
acost  —  acquisition  cost, 
nyrs  --  number  years  to  run  analysis 
ocost  --  operations  cost, 
prltr.  --  purchase  limit. 

rndlft  —  number  of  years  of  R&D  left. 

rndl,2,3  —  the  three  years  r&d  costs. 

tempval  —  temporary  value. 

utlvl  --  util  value. 

wpnname  - -  name  of  weapon  system. 


Appendix  B 
(TEMPO  Code) 


program  Tempo ; 


type 

name  =  s  t r  ing [ 6  ]  ; 

1 inechar 

=  s t r ing [ 20  1  ; 

f i lechar 

=  rec  ord 

1  i  n  e  c  h  r  ; 

end  ; 

fileline 

=  record 

s  y  s  name  : 
ac  qc  0  s  t  , 
op  sc  os  t  , 
ut i lval  , 
yr f orrd  , 
a  v  a  i  1  i  n  , 
rndy rl  , 
rndyr 2  , 
rndy r3  , 
pur ch lm , 
mode  0  s  t , 
modf lag  : 

end  ; 

letter  = 

s  tr ing  1 1  1  ; 

full_line 

=  string[79j 

1 inechar  ; 


n  are  ; 


integer  ; 


var 

budget  :  integer; 
budget  riy  :  integer; 


chancewar 

:  real; 

c  bmb  tot. 

crsltot  , 

c  f  t  r  1 0  t  , 

c  a  bm  1 0 1 

p bmb  t  0 1 , 

pms 1 1  O  t  , 

p  f  t  r  t  0  t  , 

pabntot 

c  bmb c  n  t , 

ems 1 c  nt  , 

c  f  t  r  c  n  t  , 

c  abmc  nt 

pbmbc  n  t  , 

prslcnt  , 

p  f  t  rc  nt  , 

p  abmc  n  t 

best  bmb  , 

b  e  s  t  d  e  f  , 

b  e  s  t  m  s  1  : 

integer 

csysutil 

:  array 

l  1  .  .10]  of 

real; 

csys  :  array  11..20,  1..3]  of  integer 
intel  :  array  ( 1 . . 4 ]  of  integer; 


integer 

integer 

integer 

integer 


lineprt  :  filechar; 


modfy  :  array  [1..20]  of  integer; 


{array  used  for  modify 
systems) 


overdefend  :  integer;  {flag  set  if  player  overdefends  ie. 

excess  defense) 

overspent  :  integer;  {flag  set  if  player  overspent  budget 

this  y  r  ) 

overspentcnt  :  integer;  {cntr  for  #  of  times  overspent) 
pbudget  :  integer; 
pbudgetleft  :  integer; 
pbudgetny  :  integer; 


psys  :  array  (1..20,  1..3)  of  integer; 

rndaray  :  array  [1..20,  1..3]  of  integer;  {array  used  for 

r&d  funding  ) 


sysdata:  file  of  fileline; 
sysrprt:  file  of  filechar; 
systemp:  fileline; 


s  y  s  t  name 
systutil 
sy s  tva  Is 


arrayll..20] 
ar  r ay [ 1 . . 20  j 
arrayll . .20, 


o  f  name ; 
of  real; 

1..11]  of  integer; 


tempbudget  :  integer; 


tintel  :  arrayll.. 4]  of  integer; 
tmparay  :  array l 1 . . 20 , 1  .  .  2  )  of  integer; 

utilaray:  arrayll. .10,1. .2]  of  integer; 

utlsperdol  :  real; 
ware  ount  :  real; 
x  :  integer; 
year  :  integer; 


{  array  used  for 
buy  and  scrap) 
{  array  for  yr ly 
util  totals  ) 
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1  ,  '-X  •-*  *->-  ■ 


procedure  mit; 
var 

x  :  integer ; 
begin 

rand  oni ze  ; 

budget  :=  9000  +  ( Tr u nc ( ( 1 000 . 0  *  Rand om) / 1 0 . 0  )  *  10); 
pbudget  :=  budget; 
chancewar  : =  0.15; 
overspentcnt  :=  0; 

for  x  :=  1  to  4  do 
begin 

in  t  e 1 [ x ]  :=  0; 

tintellx]  :=  0; 
end  ; 

for  x  :=  1  to  20  do 
begin 

rndaray(x,l]  :=  0;  rndaraylx  ,2  1  :=  0; 

tmparay[x,l]  :  =  0;  tmparay[x,2]  :=  0; 
end  ; 

assign( sysdata , 'WPN SYS. DAT') ; 
reset(sysdata) ; 

{  ************  rea{j  f  n  the  systems  to  be  used, 

from  off  file  *************  } 


with  systemp  do 

for  x  :  =  1  to  15  do 
begin 

read( sysdata , systemp) ; 
systnamelx]  :=  sysname; 
acqcost  :=  Tr u nc ( ( ac q c o s t / 1 . 7  + 

(acqcost  *  Random))  /  10.0)  *  10; 
s y s t v a  1  s [ x  ,  1  ]  :*  acqcost; 

opscost  :=  Tr unc ( ( op s c os t / 1 . 7  +  (opscost  *  Random)) 

/  10.0)  *  10; 

if  opscost  >  acqcost  then  opscost  :=  acqcost  -  10; 
s y s t va  1  s [ x , 2 ]  :=  opscost; 

utilval  :=  Trunc((utilval/2  +  (utilval  *  Random)) 

/  10.0)  *  10; 


systva  Is [x  ,3  ] 
systvals[x,4] 
systvals(x,5] 


:=  utilval; 

:  =  yr  f or rd  ; 

:=  availin', 

rndyrl  :  K  Tr u nc ( ( r nd y r 1 / 1 . 7  +  (rndyrl  *  Random)) 

/  10.0)  *  10; 

s y s t v a  1  s ( x  ,  6  ]  :=  rndyrl; 

rr, dyr2  :=  Trunc((rndyr2/1.7  +  (rndvr2  *  Random)) 

/  10.0)  *  10; 

systvals(x,7]  :=  rndyr2; 
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rndyr3  :=  Tr u nc ( ( r nd y r 3 /  1  .  7  +  (rndyr3  *  Random)) 

/  10.0)  *  10; 


s y s t v a  1  s l x , 8 ]  :=  rndyr3; 

systvals[x,9]  :=  purchlm; 

modcost  :=  Tr u nc ( ( mod c o s t / 1 . 7  +  (modcost  *  Random)) 

/  10.0)  *  10; 

s y s t v a  1  s [ x , 1 0 3  :=  modcost; 

sy s t va  Is [ x  ,  1 1  1  :=  modflag; 

systutillx]  :=  0.0; 

end; 

close( sysdata)  ; 

{  *********  give  each  side  the  initial 

systems  in  inventory  ***********  } 

for  x  :=  1  to  4  do 
begin 

csyslx.l]  :=  x; 
p  s  y  s [ x , 1 ]  :=  x; 

end  ; 

{  *********  initialize  inventories  ************  } 


{  also  initia 

1  i  ze 

R&D 

flag  > 

c  sy s [ 1 , 2  ] 

= 

40 

psys  t 1 , 2 ] 

:=  40; 

c  s  y  s  [  1  ,  3  3 

:=  0; 

psy s [ 1 , 3 ] 

= 

0 

' 

c  sy s [ 2 , 2  ] 

= 

60 

p  sy s [ 2 , 2  3 

:=  60; 

c  sys  l  2  ,  3  3 

:=  0; 

psys [ 2 ,3  ] 

= 

0 

■ 

c  sys ( 3  ,  2  ] 

= 

20 

p  sy  s 1 3 , 2  3 

:=  20; 

c  sys  l  3 , 3  3 

:=  0; 

psy s [ 3 , 3 ] 

s 

0 

c  sys [ 4 , 2  ] 

= 

100 

p  s  y  s  1 4 , 2  3 

:  =100 ; 

c  sys l 4 , 3  3 

:  =  0  ; 

p  s  y  s  [  4 , 3  ] 

c 

0 

{  *********  initialize  rest  of  the  array  - 

zero  it  out  ************} 

for  x:=5  to  20  do 
begin 

csystx.l]  :=  0;  csys(x,2)  :  =  0;  csys(x,3]  :=  0; 

psyslx.l]  :=  0;  psyslx,2]  :=  0;  psys(x,33  :=  0; 

end  ; 

randomize  ; 


procedure  r e a d  i  n t num ( v a r  num:  integer); 

{  ***  this  procedure  simply  insures  that 

a  number  is  input  **********  } 

label 

bad num  ; 
var 

innum  :  name ; 
result  :  integer; 

begin 

badnum:  r ead  In ( innum ) ; 

val(  innum,num,result) ; 
if  result  <>  0  then 
begin 

wr i t e (' ERROR**  input  should  be  an  integer  number 
goto  badn urn ; 


r? 


procedure  he  lpscr( var  helpscn:  integer); 

{  ***  this  procedure  handles  the  help  screens  ***  } 
label 

ag  n ,  done; 
const 

blank  1  in  e  =  ' 


syshelp:  file  of  full_line; 
helpln:  full_line; 
templet:  letter; 


begin 

case  helpscn  of 

1:  assign( syshelp t'KEPORTl.HLF'); 

2:  ass  ign( syshelp , 'REP0RT2 .KLP' ) ; 

3:  assign(syshelp,'REP0RT3.HLP'); 

4  :  assign( syshelp, 'REP0RT4.HLP'); 
end  ; 

reset(syshelp); 
c  1  r  s  c  r  ; 

agn:  helpln  :=  blank_line; 

read(syshelp, helpln) ; 
writeln(helpln) ; 

if  helpln  =  then  goto  done; 

goto  agn; 

done:  write( 'press  enter  to  continue' 
readlnt templet) ; 
close(syshelp) ; 


X 


procedure  report; 


label 

he  Ipl  ,  he  lp2  ,  he  lp3  ; 
v  a  r 

deftop,  flag,  inven,  offtop,  ptr,  templet 

tempval,  tempval2,  topcost,  totalop,  totalut,  tutils, 

xx  :  integer  ; 

temparay  :  array  [1..5]  of  integer; 


begin 

helpl:  clrscr; 


writeln( 'Start  of  Year  '.year); 

wr i t e 1 n ( ' Your  Budget  is  $  '.pbudget); 

writeln('The  estimated  budget  for  next  year  is  $ 

, pbudgetny )  ; 

wr  i t e  In ( '  PER  UNIT 

'  TOTAL'); 

wr  i  t  e  In  (  '  -  '* 

' -  PURCH  MODI'); 

writeln( 'SYSTEM  INVEN  AQCOST  OPCOST  UTILS 

'OPCOST  UTILS  LIMIT  COST'); 

totalop  :=  0;  deftop  :=  0;  offtop  :  =  0; 
for  xx  :  =  1  to  20  do 
if  psys l xx , 3  ]  =  0  then 

begin 

templet  : *  c  op  y  (  s  y  s  t  n  ame  l  p  s  y  s  t  xx  ,  1  ]  1  , 1  ,  1  )  ; 
if  (templet  =  'B;  or  (templet  *  'M')  then 
beg  in 

ptr  :=  psyslxx.l]; 
inven  :=  psys[xx,2]; 

topcost  : *  systvals[ptr,2]  *  inven; 
tutils  :=  systvals[ptr,3]  *  inven; 
offtop  :=  offtop  +  topcost; 

writers ystnamelptr),  inven:6,  systvals[ptr,l]:7) 
write(systvals[ptr,2]:8,  systvalslptr,3]:8, 
topcost:9); 

writeln(tutils:7,  systvalslptr,9]  :8, 
systvals[ptr,10]  :6)  ; 

end  ; 

end; 

wr  it°ln( '  Offensive  Total',  offtop:19); 

for  xx  :=  1  to  20  do 
if  p  s  y  s l x  x  ,  3  ]  =  0  then 
begin 

templet  :  =  copy(systnamelpsystxx,l]],l,l); 
if  (templet  *  'F')  or  (templet  =  'A')  then 


begin 

ptr  :  *  psys[xx,l]; 
inven  :=  psy s [ xx  ,  2  ]  ; 

topcost  : *  s y s t v a  1 s [ p t r  ,  2  ]  *  inven; 
tutils  :■  s y s t v a  1 s t p t r  ,  3 ]  *  inven; 


[STS] 


aenop 

wr i t e ( s y s t name [ p t r ]  ,  inven:6,  s y s t v a  1  s t p t r  ,  1 ]  : 7 ) 
vrite(systvals[ptr,2]  :8,  systvals[ptr,3) :  8  , 
topcost:9); 

writeln(tutils:7,  systvals[ptr,9)  :8, 
systvals(ptr,10]  :6); 

end; 

end; 

writelnt'  Defensive  Total',  deftop:19); 

totalop  :*=  offtop  +  deftop; 

writeln( 'Total  present  operating  c o s t ' , t o t a  1  o p : 1 6 ) ; 
wr ite( '  (enter  an  H  for  help  or  press' 

'return  to  continue)'); 
react  templet)  ; 

i f ( ( t emp 1 e t =  'H')  or  ( t emp 1 e t * ' h ' ) )  then 
begin 

flag  : =  1  ; 
helpscr(flag)  ; 
goto  helpl; 
end; 


2  :  c  1  r  s  c  r  ; 


flag  : *  0  ; 

for  xx  :=  1  to  20  do 

if  p s y s [ xx , 3 ]  <>  0  then 

begin 

if  flag  =  0  then 
begin 

wr it  e  In (  ' 

R&D  Programs'); 

wr it  e  In (  ' 

'R  &  D  COST' )  ; 

writelnt '  AVAILABLE 


Current', 
PER  UNIT' , 


'  PURCH'); 
wr it  e (  'SYSTEM 
UTILS 

writelnt  '  YEAR  ', 
y  e  a  r  +  2  , 


IN  AQCOST 

YEAR  ' .year)  ; 
year  +  1  ,  '  YEAR 

LIMIT' )  ; 


0PC0ST' , 


flag  :=  1 ; 
end; 

ptr  : =  p  s  y  s [ xx , 1 ] ; 
temparayll]  :=  systva  Is ( p t r  ,6  !  ; 
tempar£y[2]  :=  systva  Is [ ptr  ,  7  i  ; 
temparay[3]  : =  systvals[ptr,8l; 
temparaylA]  :=  0;  temparayl5]  :=  0; 

if  p  s  y  s [ x  x , 3  J  >  0  then  tempval  :  =  year  - 

systvals[ptr,4] 
else  tempval  :=  -psyslxx,3]  - 

systvalslptr,4) ; 

if  ( p  s  y  s l x  x  ,  3 i  =  999)  or  (tempval  >  2) 
then  tempval  :=  2; 


tempval2  :=  sys tvals [ ptr  ,  5 ]  -  tempval; 
wr i t e ( s y s t name ( p t r  1  ,  tempval2:8,  'yrs', 
sys  tva  Is  1 ptr  ,  1  1  : 9 ) ; 

writ e( sys tvals [ ptr  ,  2  ]  :8,  systvalslptr,3]:7, 
temparayl tempva  1  +  1 J :10) ; 
vrite!temparayltempval+2]  :9, 
temparayl tempval+3 1 :8) ; 

if  psyslxx,3]  >  0  then  wr  i  t e In ( s y s t va 1 s 1 p t r , 9 ]  : 8 

else  writeln!'  shelved'); 

end; 

if  flag  =  1  then  writeln; 
flag  : =  0 ; 

for  xx  : *  5  to  20  do 

if  s y s t v a  1 s 1 xx , 4 1  =  year  then 
begin 

if  flag  =  0  then 
begin 

writeln! '  Proposed' 

R&D  Programs ' ) ; 

write!  'All  of  the  following  are  expected', 
values  except  year  '); 
wr it e  In ( y e ar  ,  '  R&D  cost'); 

writeln!'  PER', 

'UNIT  R&D  COST' ) ; 

writeln!'  AVAILABLE  - ', 


' -  PURCH'); 

write!  'SYSTEM  IN  AQCOST  OPCOST 

'  UTILS  YEAR  '.year); 
writeln!'  YEAR  ',  year+1 ,  '  YEAR  ',  year+ 

'  LIMIT'); 
flag  : =  1 ; 
end  ; 

write!  s y s t n ame 1 xx ]  ,  sys tva  Is  1 xx  ,  5 ]  : 8  , 

'yrs',  s y s tv  a  1  s 1 xx  ,  1  1  :  9 ) ; 
write!  sys t va Is  1 xx  ,  2  ]  :  8  ,  sys tva  Is  1 xx , 3  1  :  7  , 
systvalslxx,6]:10); 

writeln!systvalslxx,7]:9,  systvalslxx,8l :8, 
systvalslxx,9]  :8)  ; 

end  ; 
writeln; 

wr  it e  In! 'REMEMBER -  Systems  may  be  bought  the  same', 

year  final  R&D  costs  are  paid'); 
writeln!'  !  enter  an  F.  for  help  or  press  a  ', 

'return  to  continue)'); 


r  e  a  d ( t  emp 1 e  t ) ; 

if((tenplet=  'H')  or  ( t e mp 1 e t  =  '  h ' )  ) 
begin 

flag  2; 
helpscr(flag) ; 
goto  help2; 
end; 


then 


****  now  print  intel  reports  ****} 


p3 :  c lrscr  ; 
wr it  e  In (  ' 


); 


Intelligence  report 


0) 

'B‘ 


=  '  M '  )  then 


★ 

t  o 


10; 


wr i t  e 1 n ; 

flag  :=  trunc(100.0  *  chancewar)  ; 
wr i t e 1 n(  ' I n t e 1 1 i g e nc e  reports  indicate  chance 
this  year  =  '.flag,'  %'); 

wr  i  t  e  1  n  ; 

if  intelll)  *  1  then 
for  xx  :=  1  to  20  do 

if  (csystxx.il  <>  0)  and  (csystxx,3] 
if  (copy( systnanelcsys [xx ,1 1 ] ,1,1) 

(copy( systnametcsyslxx.l  1  1  ,1 , 1  ) 
begin 

wr  i  t e ( ' Of f ens iv e  system  ', 

systnametcsyslxx.l 1  1) ; 
tempval  t rune ( c sy s t xx  ,  2 ] / 1 0 ) 

writeln('  range  =  ' , t empva 1 : 4 , ' 
tempva 1  +  10); 

end  ; 

if  intel(2]  =  1  then 
for  xx  :=  1  to  20  do 

if  (csystxx.il  <>  0)  and  (csystxx,3l 
if  (copy(systnametcsystxx,l 1  ]  ,1,1) 
(copy(syst  name  tcsystxx.lll.1,1) 
begin 

wr  i  t e ( ' De f e n s  i  v e  system  ', 

systnametcsyslxx.l  1  1); 
tempval  :=  t r u nc ( c s y s t xx  ,  2 1 / 1 0 )  *  10; 
wr  it e  ln( '  range  =  '.tempval: 4,'  to 
tempval  +  10); 


of  war 


then 
)  or 


0  ) 

'  F  ‘ 


then 
)  or 


A' )  then 


end; 

if  in  t  e 1 t  3 1  =  1  then 
for  xx  :=  1  to  20  do 

if  (csystxx.il  <>  0)  and  (csystxx,3l  <>  0)  then 
if  ( c o py ( s y s t name ( c s y s t xx  ,  1  1  1  ,  1  , 1  )  =  'B')  or 
( c op y ( s y s t n ame t c s y s t xx  ,  1  1  1  ,  1  ,  1  )  =  ' M ' )  then 
begin 

wr  i  t  e  (  '  0  f  f  e  n  s  i  v  e  R  6>  D  for  ', 
systnametcsyslxx.l 1 )) ; 
writeln(  '  in  progress.'); 


if  i n  t  e 1 [ 4 ]  =  1  then 

for  xx  :=  1  to  20  do 

if  (csyslxx.l)  <>  0)  and  (csyslxx,3]  <>  0)  then 
if  (copy( systnanel c  sys [ xx  ,  1 ] )  ,  1  , 1 )  =  'F')  or 
(copy( systname I csys [xx,l ] ] ,1 , 1  )  =  'A')  then 

begin 

vrite( 'Defensive  P,  &  D  for  '  , 
systnanelcsyslxx.l] ]); 
writeln(  '  in  progress.'); 
end; 

writeln; 

vrite('  enter  an  H  for  help  or  press  return', 

to  continue  '); 
readln( templet); 

i f ( ( t emp 1 e t =  'H')  or  ( t emp  le t  = 'h  '  )  )  then 
begin 
flag  :=  3; 
helpscr(flag)  ; 
goto  help3; 
end; 


procedure  Nyranlys(Xyr,  Avlin,  Acqcst,  Opcst,  Utls, 

Rdl,  Rd2,  Rd3,  purlin;:  integer); 


X,  Opscost,  Acqbugt,  Sysbght,  vpnsbght:  integer; 
Totopscst,  Totacqcst,  Totluti  Is ,  Totrd,  Yrsutls:  real 


Sysbgt:  real; 
sp:  s  t  r i n  g  l  2  ]  ; 


begin 

vpnsbght  : =  0; 

Totopscst  :=  0.0; 

Totacqcst  :  =  0.0; 

Totlutils  :=  0.0; 
for  X  :=  Avlin  +  1  to  Nyr  do 
begin 

Opscost  :=  Opcst  *  wpnsbg'nt  ; 

Acqbugt  :=  budget  ~  Opscost; 

Sysbgt  :=  Int(Acqbugt  /  Acqcst); 

Sysbght  :  =  Trunc ( S y s bg t ) ; 

if  sysbght  >  purlitn  then  s\sbght  :=  purlim; 
wpnsbght  :=  vpnsbght  +  Sysbght; 

Yrsutls  :=  int(wpnsbght)  *  int(Utls); 

Totopscst  :=  Totopscst  +  Int( Opscost) ; 

Totacqcst  :=  Totacqcst  +  Int(Sysbght  *  Acqcst); 
Totlutils  :=  Totlutils  +  Yrsutls; 
end  ; 

Totrd  :=  Int(Rdl  +  Rd2  +  Rd3  )  ; 
if  (totrd  +  totacqcst  +  totopscst)  =  0  then 
utlsperdol  :=  0.0 

else 

utlsperdol  :=  Totlutils  / 

(Totrd  +  Totacqcst  +  Totopscst); 


end  ; 


procedure  compturn; 


label 

goond,  goono,  goons; 
v  a  r 

xx  ,  yy  :  integer ; 

bestbmbflag,  bestdefflag,  bestmslflag  :  integer; 

budgetleft  :  integer; 

ptr  :  integer; 

templet  :  letter; 

tempval  :  integer; 

numbuy,  bstopbmb,  bstopmsl,  bstopftr,  bstopabm  :  integer; 
ofopscost,  optr,  dptr  :  integer; 

bstbnbinv,  bsttnslinv,  bstftrinv,  bstabminv  :  integer; 


begin 

c  1  r  s  c  r  ; 

writelnt 'Please  wait  while  the  computer  selects  its', 
moves.'); 
for  xx  :=  1  to  20  do 

if  (  s  y  s  t  v  a  1  s  t  x  x  ,  4  ]  <=  year)  and  ( systvals [ xx  ,  1  ]  <>  0) 

then 


begin 

Nyranlys(10,  systvalslxx,5),  systvalslxx.l  ]  , 
s y s tv  a  1 s l xx  ,  2  ]  ,  s y s t v a  1 s I xx  ,  3  ]  , 
s y s t va  1  s [ xx  ,  6  ]  ,  systva Is [xx  ,  7  ]  , 
s y s t v a  1 s [ xx , 8 ]  ,  s y s t v a  1 s [ xx  ,  9  ]  )  ; 
systutil! xx  ]  :=  utlsperdol; 

end; 


:=  0;  bestdef  :=  0; 


bestbcb  :=  0;  bestmsl  :=  0;  bestdef  :=  0; 

for  xx  :=  1  to  20  do 

if  c  s  y  s l x  x  ,  1  ]  <>  0  then 

begin 

ptr  : =  csys [ xx  ,1 1 ; 

templet  :  =  copy(systi. ane(ptr)  ,1,1); 
if  sys  tu  t i  1  I p  tr  1  <  >  0  then 

begin 

if  i templet  =  'B')  then 

if  bestbmb  =  0  then  bestbmb  :=  ptr 

else  if  systutil [bestbmbl 
systutillptr) 
best  bmb  : =  ptr; 

if  (templet  =  'M')  then 

if  bestmsl  =  0  then  bestmsl  :=  ptr 

else  if  systutil 1 bestmsl 1 
systutillptr] 
bestmsl  : =  Dtr: 


then 


then 
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if  (templet  *  'F')  or  (templet  ■  'A')  then 
if  bestdef  =  0  then  bestdef  :*  ptr 

else  if  s y s tu t i 1 1 bes t d e f  ]  < 

systutillptr]  then 
bestdef  : *  ptr; 

end  ; 

end ; 

for  xx  :=  1  to  20  do 
if  s y s t va 1 s l xx , 4 ]  *  year  then 
begin 

templet  :=  c op y( sy s t name l xx ]  ,  1  ,  1  )  ; 
if  systutillxx]  <>  0  then 
begin 

if  (templet  =  'B')  then 

if  s y s tu t i 1 1 be s t bmb  1  <  systutillxx]  then 

best  bmb  : =  xx ; 
if  (templet  ■  'M')  then 

if  s y s tu t i 1 l b es tms 1 ]  <  systutillxx]  then 

bestmsl  :=  xx; 

if  (templet  =  * F ' )  or  (templet  =  'A')  then 
if  s y s tu t i 1 1 b es t de f  ]  <  systutillxx]  then 

bestdef  :=  xx; 

end  ; 

end  ; 

budget  left  :=  budget; 

**********  fund  needed  R&D  ************  } 
first,  shelve  any  other  R&D  } 

for  xx  :  =  1  to  20  do 

if  (csyslxx,3]  =  1)  then 

if  (csyslxx.l]  <>  bestbmb)  and 
(csyslxx.l]  <>  bestdef)  and 

(csyslxx.l ]  <>  bestmsl)  then  csyslxx,3]  :  *  -year 

now,  pay  current  R&D  prices  ) 

bestbmbflag  :*  0;  bestdefflag  :■  0;  bestmslflag  : =  0 ; 
for  xx  : =  1  to  20  do 
begin 

if  (csyslxx.l]  -  bestbmb)  then 
begin 

best  bmb  flag  :  ■  1  ; 

tempval  :*  (6  +  sys tva Is l bes tbmb , 5 ] )- 
(systvals(bestbmb,5j- 

(year-systvalslbestbmb,4] )) ; 
budgetleft  :=  budgetleft  - 

systvalslbestbmb, tempval] ; 


end  ; 


if  (csys[xx,ll  -  bestdef)  then 
begin 

bestdef f  lag  : =  1  ; 

tempval  : ”  (6  +  s y s t va Is [ be s t d e f  ,  5  ]  ) - 
(systvals[bestdef,5l- 

(year-systvalslbestdef,4]  ))  ; 
budgetleft  :■  budgetleft  - 

systvalslbestdef .tempvall ; 

end  ; 

if  (csys[xx,l]  *  bestmsl)  then 
beg  in 

be  s  tms 1 f lag  :  *  1; 

tempval  :*  (6  +  s y s t va Is l bes tms 1 , 5 J ) - 
(systvalslbestmsl,5l- 

(year-systvalslbestmsl ,4] )) ; 
budgetleft  :=  budgetleft  - 

systvals [bestmsl .tempval] ; 

end  ; 

end  ; 


{  if  flag  =  0  then  its  a  new  P^&D  project  and  needs  to  } 
{  be  added  to  the  array  ) 


if  bestdefflag  *  0  then 

for  xx  :=  1  to  20  do 

if  csyslxx.l  ]  *  0  then 
begin 

csyslxx.l ]  :=  bestdef; 

csys Ixx  ,2  ]  : =  0  ; 

csys[xx,3]  :=  1; 

budgetleft  :=budgetleft  -s y s t va  Is [ bes t d ef  ,  6  ]  ; 
goto  goond; 
end  ; 


goond:  if  bestbmbflag  =  0  then 
for  xx  : *  1  to  20  do 

if  csys  [xx.l ]  *  0  then 
begin 

csyslxx.l]  :=  bestbmb; 
csyslxx.2]  :=  0; 
csyslxx.3]  :=  1; 

budgetleft  :=budgetleft-systvals[bestbmb,6]; 
goto  goono; 
end  ; 
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goono:  if  bes  tins  1  f  lag  =  0  then 
for  xx  :=  1  to  20  do 

if  csys  [xx,ll  =  0  then 
begin 

csyslxx.il  :■  bestmsl; 
c  s  y s I xx  ,  2  ]  : =  0  ; 

csys[xx,3]  :  ®  1; 

budgetleft  :=budgetleft-systvalslbestmsl ,6 ] ; 
goto  goons ; 
end  ; 


{*********  £f  system  finished  R&D  (paid  last  year), 

make  it  operational  ********* 

goons:  for  xx  :=  1  to  20  do 

if  (csyslxx.il  *  bestbmb)  or 

(csyslxx.il  *  bestdef)  or 

(csyslxx.il  =  bestmsl)  then 

begin 

ptr  : ■  csyslxx.il; 

tempval  :=  sys tva 16 l ptr , 4  1  +  s y s t va 1 s I p t r  ,  5  1  -  1; 
if  tempval  <*  year  then  csys[xx,3]  :=  0; 
end  ; 

{  ****  now  calculate  best  system  of  each  weapon  type  ****  } 

bstopbmb  :*  0;  bstopmsl  :®  0;  bstopftr  :=  0; 

bstopabm  : =0 ; 
for  xx  :**  1  to  20  do 

if  (csyslxx.il  <>  0)  and  (csyslxx.3]  =  0)  then 
begin 

ptr  : *  csyslxx.il; 

templet  :*  c opy (  s y s t name l p t r  1  ,  1  , 1  )  ; 
if  sys tu t i  1 1 ptr 1  <>  0  then 

begin 

if  (templet  *  'B')  then 

if  bstopbmb  *  0  then  bstopbmb  :■  xx 

else  if  sys tu ti  1 1 bstopbmb 1  < 
systutillptrl  then 

b  s  t  o  pbmb  : =  xx 

if  (templet  M  'M')  then 

if  bstopmsl  *  0  then  bstopmsl  :■  xx 

else  if  s y s tu t i 1 1 bs t opms 1 1  < 
systutillptrl  then 

bstopmsl  : =  xx 

if  (templet  =  'F')  then 

if  bstopftr  *  0  then  bstopftr  :*  xx 

else  if  s y s tu t i 1 1 b s t op f t r  1  < 
systutillptrl  then 

bstopftr  : *  xx 


if  (templet  *  'A')  then 

if  bstopabm  =  0  then  bstopabm  :=  xx 

else  if  s y s tu t i 1 t b s t opabm  1  < 
systut i 1 ( ptr  1  then 

bstopabm  : =  xx ; 

end  ; 


end  ; 


{  ****  now  determine  best  operational  offensive 


vpns  and  pay  ops  costs 


************  } 


optr  :=  bstopbmb;  dptr  :=  bstopmsl; 
if  s y s tu t i 1 l c s y s l b s t opbmb , 1 1 1  < 

sy s tu t  i  1 1 c sy s [ b s t opms 1 , 1 ] 1  then 
beg  in 

optr  :=  bstopmsl; 
dptr  :=  bst  opbmb ; 
e  nd  ; 

if  csysldptr,2]  >  ( c s y s [ op t r  ,  2  1  /  1.7)  then 
csysldptr,2]  :=  csys[dptr,2]  -  12; 
if  csysldptr,2]  <  0  then  csysldptr,2]  :  “  0; 
if  csys[optr,2]  >  (  c s y s [ dp t r  ,  2  )  *  2.01)  then 

beg  in 

budgetleft  :=  budgetleft  - 

(5  *  6ys tva  1  s ( csy s [ dp tr , 1 1 , 2  ]  )  ; 
csys[dptr,2]  : =  csysldptr,2]  +  5; 
end  ; 

ofopscost  :■  c sys [ b st opms 1  ,  2 ]  * 

sy s tva 1 s [ c sy s [ b s t opms 1 , 1 1 , 2 ]  ♦ 

c sy s t b s topbmb  ,  2 ]  * 
systvals[csyslbstopbmb,l ] ,2] ; 
budgetleft  :*  budgetleft  -  ofopscost; 


{  ***  now  take  out  1500  +  from  budget  so  that  we  are 

assured  of  some  sort  of  balance  in  weapon  systems  ***} 


budgetleft  :*  budgetleft  -  (1500  +  year  *  100); 


{***  make  sure  not  over  budget  now,  if  so,  correct  it***) 


while  budgetleft  <  0  do 
begin 

for  xx  :*  1  to  20  do 
if  (xx  <>  optr)  and 

(xx  <>  dptr)  then  csyslxx,2]  :=  0; 
csys(optr,2]  :=  csysloptr,2]  -  2; 
csys[dptr,2]  :=  csysldptr,2]  -  1; 
budgetleft  :=  budgetleft  ♦ 

( s y s t va  1  s l c s y s l op t r , 1 ] , 2 ] *  2)  + 
systvals(csys[dptr,l ] ,2] ; 

end  ; 
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{**•**  save  inventory  count  of  best  weapons,  scrap  all 

the  rest  *************  } 

bstbmbinv  :■  c s y s I b s t o pbmb , 2 ] ; 
bstmslinv  :  =  c s y s [ b s t opms 1 , 2 ] ; 
bstftrinv  :=  c s y s [ b s t op f t r  ,  2  ]  ; 
bstabminv  :=  c s y s [ b s t op abm , 2  ]  ; 
for  xx  :=  1  to  20  do 
csys[xx,2]  0; 

{  ***  now  buy  the  best  offensive  systems  ***  } 

{  note: -  maintain  a  2  to  1  ration  of  best  to  2nd  best  ) 

numbuy  :=  trunc ( budget  le f t  / 

((2  *  s y s t v a  1  s [ c s y s [ op t r , 1 1 , 1 ) )  + 

(  s y s t va  Is [ c s y s t dp t r , 1 1 , 1 1 ) )  ); 

{  **  make  sure  not  >  purch  1 im  **  } 

if  (2  *  numbuy)  >  s y s t va 1 s ( c s y s [ op t r , 1 1 , 9 ]  then 

numbuy  :=  t r u nc ( s y s t v a  1 s [ c s y s l op t r  ,  1 J , 9  ]  /  2); 

{  **  now  add  to  inventory  &  calculate  budgetleft  **  ) 

budgetleft  : *  budgetleft  - 

((2  *  numbuy  *  sy s tva  Is [ c sy s [ opt r , 1 ] , 1 ) )  + 
(  numbuy  *  sy s tv  a  1 s l c sy s l dp t r , 1 1 , 1 1 ) ) ; 
if  optr  *  b  s  t  o  pbmb  then 
begin 

bstbmbinv  :=  2  *  numbuy  +  bstbmbinv; 
bstmslinv  :=  numbuy  +  bstmslinv; 
end 

else 

begin 

bstmslinv  :=  2  *  numbuy  +  bstmslinv; 
bstbmbinv  :=  numbuy  +  bstbmbinv; 
end ; 

{  ****  now  fill  in  inventory  slots  ****  } 

c sys ( bstopbmb , 2 ]  :=  bstbmbinv; 

c s y s l b s t opms 1 , 2 ]  :=  bstmslinv; 

c sy s [ b s t op f t r , 2 1  :=  bstftrinv; 

c s y s l b s t op abm , 2 ]  :=  bstabminv; 

{  *****  now  redo  sequence  using  defensive  systems  ******* 

optr  : =  bstopftr;  dptr  :=  bstopabm; 
if  sys tut i 1 1 c sy s l b s t opf t r  ,  1  1  1  < 

sy s tu t i 1 1 c s y s [ b s t op abm  ,  1  )  ]  then 
beg  in 

optr  : *  bstopabm; 


if  csys[dptr,2]  >  ( c s y s [ op t r  ,  2 ]  /  1.7)  then 
csystdptr,2]  :=  csysldptr,2]  -  7; 
if  csysldptr,2]  <  0  then  csys[dptr,2]  :=  0; 
if  csys(optr,2]  >  ( c s y s t d p t r  ,  2 ]  *  2.01)  then 

csystoptr,2]  :=  csys(optr,2]  -  2; 

{  add  back  in  1500+  we  took  away  earlier  ) 

budgetleft  :*  budgetleft  +  (1500  +  year  *  100); 


{  first  pay  ops  cost  for  those  in  inventory  ) 

ofopscost  csys(optr,2]  *  sys tva  Is t csys l optr , 1 ] , 2 ]  + 
csys[dptr,2]  *  s y s t v a  1  s t c s y s ( dp t r , 1 ] , 2 ] ; 
budgetleft  :■  budgetleft  -  ofopscost; 

while  budgetleft  <  0  do 
begin 

xx  : =  0 ; 

if  csysloptr,2]  >  0  then 
if  csystoptr,2]  =  1  then 

begin 

xx  : =  1 ; 

c  sy s I optr , 2  ]  :=  0; 

end 
else 
beg  in 

xx  : =  2 ; 

csysloptr,2]  : ■  csystoptr,2] 


yy  : =  0; 

if  csys[dptr,2]  >  0  then 

begin 
yy  ;=  i; 

csys[dptr,2]  :=  csysldptr,2]  -  1; 

end; 

budgetleft  :*  budgetleft  + 

( s y s t va 1 s [ c s y s l op t r  ,  1  1  ,  2 ]  *  xx)  + 

(systvals[csys[dptr,l),2]  *  yy); 

end  ; 

{  ****  can  buy  some  more,  do  so  ****} 

nutnbuy  :=  trunc(budgetleft  / 

((2  *  s y s t va  1  s [ c s y s [ op tr , 1 ] , 1 ) )  + 

(  s y s t v a  1  s l c s y s l d p t r ,  1  ) ,  1  ] ) )  ); 

if  (2  *  nutnbuy)  >  sy  s  t  va  1  s  [  c  sy  s  l  optr  ,  1  )  ,  9  ]  then 
numbuy  :*  t r u nc ( s y s t v a  1  s [ c s y s l op t r , 1 ] , 9 1  /  2); 


if  numbuy  >  0  then 
begin 

budgetleft  :=budgetleft  - 

( ( 2  *  numbuy  * 

sy s t va  Is [ c sy s [ op t r  ,  1  ]  ,  1  1  )  + 
(  numbuy  * 

systvals[csysldptr,ll,l])); 
csysloptr,2]  : *  csysloptr,2]  +  (2  *  numbuy); 

csys[dptr,2l  :=  csys(dptr,2]  +  numbuy; 
end  ; 


**  can  we  squeeze  in  just  one  more  wpn  ?  **} 

if  budgetleft  >  s y s t v a  1  s [ c s y s ( op t r , 1  ]  ,  1  )  then 

if  (2  *  numbuy)  <>  s y s t v a  1  s ( c s y s ( op t r  ,  1  ]  , 9  ]  then 
begin 

budgetleft  :*  budgetleft  - 

systvals [csys(optr,l  ]  ,1  ]  ; 
csysloptr,2]  :=  csysloptr,2]  +  1; 

end  ; 

if  budgetleft  >  s y s t va  Is [ c s y s t d p t r  ,  1  ]  ,  1  )  then 
if  numbuy  <>  s y s t v a  1  s ( c sy s ( dp t r , 1 ]  ,  9 ]  then 
begin 

budgetleft  : *  budgetleft  - 

systvalslcsysldptr.l ]  ,1  ]  ; 
csys[dptr,2]  :*  csys[dptr,2]  +  1; 


procedure  displaymenu; 
begin 
clrscr; 
wr i t  e 1 n ; 

writeln('  Player  Function  Henu' ) ; 

vriteln; 

writeln('l.  Reprint  the  reports.'); 
vriteln('2.  Enter  this  years  orders.'); 
vritein('3.  Perform  weapon  system  analysis.'); 
writeln('4.  Finished,  execute  orders  and  proceed  to 
'next  year.'); 

wr i t  e 1 n ; 

wr i t e In ( ' P 1 e a s e  enter  the  number  of  the  option  you  wish 
to  perform.'); 

writeln('(or  type  H  for  help)'); 
wr i t  e 1 n ; 
end  ; 


procedure  orders; 


label 

redord,  pi,  pl5,  p2,  p3 ,  tryagn,  modlim,  scrpng,  prchlm 
v  a  r 

xx,  ptr,  flag  :  integer; 
answer  :  name; 
templet  :  letter; 

begin 

for  xx  : «  1  to  20  do 
begin 

tmpar ay l xx , 1 ]  :=  -1; 

modfylxx]  :=  0; 
end ; 

tryagn:  for  xx  :=  1  to  20  do 

if  (psyslxx.il  <>  0)  and  (psys(xx,3l  =  0)  then 
begin 

c  lr scr  ; 

ptr  :=  psystxx.il; 

write( 'For  the  ' .systnacelptrl , 

weapon  system,  you  currently  '); 
writeln( 'have  ' , p s y s t xx  ,  2  )  , 

in  your  inventory.'); 

prchlm:  vrite('Hov  many  do  you  wish  to  BUY?  '); 

readintnum(tmparaylxx,l  ])  ; 

if  tmparaytxx.il  >  s y s t v a  1 s t p t r , 9 1  then 
begin 

write( 'Your  buy  order  exceeds  the  purchase 
'limit  for  this  '); 

writelnt 'system  of  '  ,  s y s t va  1  s l p t r , 9 1 ) ; 
goto  pr ch lm ; 
end  ; 

wr ite In ; 

scrpng:  wr ite( 'How  many  do  you  wish  to  SCRAP?  '); 

readintnumC  tmparaytxx  ,2  1  )  ; 
if  tmp ar a y t xx , 2 1  <  0  then 

begin 

write ln( 'You  cannot  have  a  negative  ', 

'SCRAP  value.'); 
goto  scrpng; 
end  ; 

if  (systvalstpsyslxx.ll.il]  >  0)  and 
(psystxx,2l  >0)  then 
begin 

wr i t  e  1  n  ; 

modlim:  wr ite( 'How  many  do  you  wish  to  be  ', 

'MOD1FCATIONS?  '  )  ; 


readintnum(modf  ytxx] ) ; 


if  modfylxx]  >  s y s t v a  1  s [ p s y s [ xx  ,  1 ) , 9 3  then 
begin 

vrite('Your  modify  order  exceeds  the', 
limit  for  this  '); 

writela( 'system  of  ' , sy s t va  Is ( psy s [ xx , 1 ] , 9 ] ) 
goto  modlim; 
end  ; 

end  ; 
end  ; 
c  1  r  s  c  r  ; 

wr i t e  In ( ' P 1 e a s e  review  the  following  to  see 
'if  it  is  correct'); 

wr i t  e 1 n ; 

writeln('  Weapon  system  BUY  SCRAP', 

'  MODIFY  TOTAL'); 

for  xx  :=  1  to  20  do 

if  t mpa r a y I xx , 1 ]  <>  -1  then 

begin 

vrite( '  ' , s y s t name [ p s y s [ xx  ,  1 ] ]  , 

tmparaylxx.l) :13,  tmparay[xx,2] :15) ; 
write(modfy[xx]:13); 

wr  it e In ( ( psy s ( xx , 2 ]  +  modfytxx]  +  tmpar ay [ xx , 1 ] 

-  tmp ar ay  I xx , 2 ] ) : 1 3 ) ; 

end  ; 
wr i t  e In ; 

writeln('Is  this  correct  (Y/N)?'); 
r  ead ( answer ) ; 

if  ( c opy( answer , 1 , 1 )  <>  'Y')  and 
( copy( answer , 1 , 1 )  <>  'y')  then 
begin 

for  xx  :=  1  to  20  do 
tmpar ay l xx , 1 3  :=  -1; 

wr ite  In  ; 

writeln('Do  you  want  to  try  again  (Y/N)?'); 
read(answer)  ; 

if  (copy(answer , 1,1)  =  'Y')  or 

(copyCansver  ,  1,1)  =  '  y '  )  then  goto  tryagn; 

end; 

{******  now  check  for  R&D  ******} 


redord:  for  xx  :=  1  to  20  do 
begin 

rndaraylxx.l]  :=  0; 
rndar ay [ xx  ,  2  ]  :=  0; 

rndaray 1 xx ,3  ]  :=  0; 

end; 


c  1  r  s  c  r  ; 

for  xx  :=  1  to  20  do 

if  s y s t v a  1 s l xx , 4 ]  =  year  then 
begin 

flag  :  =  1  ; 

wr  ite(  'Do  you  want  to  fund  research  for  ', 
s y s t name t xx ] , '  ? ' ) ; 

wr it e( '  (  Y/N  )  '  )  ; 
read ln( answe  r  )  ; 


if  ( ( c opy ( an s wer  ,  1  , 1  )  =  'Y')  or 

( c opy ( an swe r  ,  1  , 1  )  =  ' y '))  then 
begin 

rndaraytxx.l]  : =  1; 
if  s y s t va 1 s [ xx , 5 ]  =  1  then 
beg  in 

write( 'How  many  '  ,  s y s t name [ xx ] , 

systems  do  you  want  to  buy?  '); 
readintnum(rndaraylxx,2] ) ; 
if  rndaray I xx , 2 ]  >  systva  1  s l xx , 9 ]  then 

beg  in 

write( 'Your  buy  order  exceeds  ', 

'the  purchase  limit  for  this  '); 
writelnC 'system  of  '  ,  sys tva  Is [ xx , 9 ] ) ; 
goto  pl ; 
end ; 

if  sys tva Is [ xx , 1 1 1  <>  0  then 
begin 

write( 'How  many  '  ,  sys tname [ xx ] , 
systems  do  you  want', 
to  modi f  y ?  '  )  ; 

readintnum( rndaraylxx  ,3  ]  )  ; 
if  r nd ar ay [ xx , 3 ]  >  sy s tva  Is [ xx  ,  9 ]  then 

begin 

write( 'Your  modify  order', 
exceeds  the  limit', 
for  this  '); 
writeln( 'system  of  ', 

systva  1st xx, 9]); 
goto  pl 5 ; 
end; 

end; 

end 

else  rndar ay ( xx , 2 ]  :=  0; 

end; 

end  ; 

for  xx  :=  1  to  20  do 

if  (psystxx,3j  =  1)  or  (psyslxx,3]  =  999)  then 
begin 

flag  :  *  1  ; 

wr  ite( 'Do  you  want  to  continue  research  for  '); 
wr  ite( systnanet  psys [xx , 1 ]  ) ,  '  ?  (Y/N)  '); 


vv 


V 

> 


read  1 n ( answer ) ; 

if  ((  copy ( answer  ,  1 , 1  )  *  'Y')  or 

(copy( answer , 1,1)  =  'y'))  then 
begin 

rndar ay ( psy s [ xx  ,  1  ]  ,  1  ]  :=  1; 

if  ( ( s y s t va  1  s [ p s y s [ xx , 1 ] , 5 ]  + 

systvalsl psvslxx.l ] ,4]  -  l)=year) 
or  (psys[xx,3j  =  999)  then 
begin 

p2  :  write( 'How  many  ' , s y s t name [ p s y s [ xx , 1 ] ] , 

systems  do  you  want  to  buy?  '); 
readintnum(rndaray[psys{xx,l  ]  ,2]) ; 


p3  : 


if  rndar ay [ psys [xx  ,  1  ]  ,  2  ]  > 

s y s t va 1 s [ p s y s 1 xx , 1 ] , 9  ]  then 
begin 

write('Your  buy  order  exceeds  , 

'the  purchase  limit  for  this 
writeln( 'system  of 

systvals[psys[xx,l  ]  ,9])  ; 

goto  p2  ; 
end; 

end 


else 

rndaray [ psys [ xx , 1 ], 2 ]  :=  0; 

end; 

end  ; 

for  xx  : =  1  to  20  do 

if  psyslxx ,3 1  <  0  then 

begin 

flag  :=  1; 

vrite('Do  you  want  to  resume  research', 
for  the  shelved  '); 

wr i t e ( sy s t name l psy s [ xx , 1 ] ] ,  '  ?  (Y/n)  '); 

read ln( answer); 

if  ((  c op y ( a n s we r , 1 , 1  )  =  'Y')  or 

(copy (answer, 1,1)  =  'y'))  then 
begin 

rnd ar a y [ p sy s [ xx , 1 ] , 1 ]  :=  1; 

if  (-psys[xx,3]  >= ( s y s tva 1 s l p s y s l xx , 1 ] , 4 ] - 1 ) 

s y s t va Is ( p sy s ( xx  ,  1  ]  , 5 ] )  then 

begin 

write('How  many  ' , s y s t name [ p s y s [ xx  ,  1  ]  ]  , 
systems  do  you  want  to  buy?  '); 
readintnuc( rndaray l psys [xx , 1 ] , 2  ]  )  ; 
if  r  nd  a  r  a  y  [  p  s  y  s  l  xx  ,  1  ]  ,  2  ]  > 

s y s t va  Is [ p s y s ( xx , 1 ] , 9 ]  then 
begin 

write( 'Your  buy  order  exceeds  the', 
purchase  limit  for  this  '); 
writeln(  'system  of  ', 

systvals[psys[xx,l  ]  ,9))  ; 

toto  n  3 : 


end  ; 


rnd ar ay ( ps y s E xx , 1 ] , 2 ]  0; 


end ; 


if  flag  =  1  then 
begin 

wr it  e In ; 

writ e( 'Please  review  this  information.'. 
Is  it  correct?  (Y/N)  '); 
read  In ( answer  )  ; 


if  ( ( c opy ( an s we r , 1 , 1 )  <>  'Y')  and 

(copy( answer , 1,1)  <>  'y'))  then 
goto  redord ; 

end; 

{  *****  now  check  to  see  about  intel  reports  wanted  ***** 

for  xx  :=  1  to  4  do 
tintellxx]  :=  0; 
clrscr; 

wr  i  t  e ( 'Do  you  want  any  intelligence  reports?  (Y/N)  '); 
read  ln( templet ) ; 

if  (( copy( templet , 1 , 1 )  B  'Y')  or 

( copy( templet , 1 , 1 )  -  'y'))  then 
begin 

wr ite In ; 

writeln('At  100  $  per  intelligence  report,  ', 

'do  you  want  a  report  on'); 

write  ('  Offensive  systems  ?  ( Y / K )  '); 

readln( templet)  ; 

if  (( copy( templet , 1 , 1 )  =  'Y')  or 

( c opy ( tempi e t , 1 , 1 )  =  'y'))  then 
tintelll]  :=  1; 

write  ('  Defensive  systems  ?  '); 

read  ln( templet ) ; 

if  (( c opy ( temp  1 e t , 1 , 1 )  =  'Y')  or 

( c opy ( temp 1 e t , 1 , 1 )  =  'y'))  then 
t  i  n  t  e  1  (  2  j  :=  1; 

write  ('  Offensive  R  &  D  ?  '); 
readln( templet); 

if  (  (  c op y ( t e mp 1 e t , 1 , 1 )  =  'Y')  or 

( c opy (  temp  1  e t  ,  1  , 1 )  **  'y'))  then 
t  inte  1  [  3  ]  :B  1; 


write  ( '  Defensive  R  &  D  ?  '); 
r  ead  1  n( temp  1 e  t ) ; 

if  ((  copy(  templet  ,  1  , 1  )  =*  'Y')  or 

(copy! templet , 1 , 1 )  =  'y'))  then 
t  i  n  t  e  1 1  4  j  :=  1; 

end  ; 


end  ; 
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procedure  wpnanalys; 


label 

agoon,  ogoon; 
var 

temple  t  :  letter; 

nyrs,  rndlft,  acost,  ocost  ,  utlvl:  integer; 
rndl,  rnd2,  rnd3 ,  prim,  tempval  :  integer; 
wpnname  :  name ; 

begin 

c lr scr  ; 
wr  i t  e 1 n ; 

write( 'Enter  the  name  of  the  veapon  system.  '); 
r ead  1  n( wpnname ) ; 

write! 'Enter  the  number  of  years  ", 

'to  run  the  analysis.'); 
readintnum(nyrs) ; 

write! 'Enter  the  number  of  years  of  R&D  left, 
readintn urn (rndlft)  ; 


agoon:  write! 'Enter  the  system  acquistion  cost.  '); 
readintnum(acost)  ; 
if  acost  <*  0  then 
begin 

wr ite ln( 'ERROR - Cannot  have  a  negative  or 

zero  acquisition  cost'); 
goto  agoon; 
end  ; 


ogoon:  write('Enter  the  system  yearly  operation  cost, 
readintn um (ocost) ; 
if  ocost  <*  0  then 
begin 

writeln('ERROR - Cannot  have  a  negative  or 

'zero  operation  cost'); 
goto  ogoon; 
end ; 

write! 'Enter  the  system  util  value.  '); 
readintnum(utlvl)  ; 

write('Enter  the  1st  year  R&D  cost  ', 

'(enter  a  0  if  none).  '); 
readintnum(rndl  )  ; 

write! 'Enter  the  2nd  year  R&D  cost.  '); 
readintnum(rnd2) ; 


write( 'Enter  the  3rd  year  R  &  D  cost.  '  )  ; 
readintnumC rnd3  )  ; 

wr ite( 'Enter  the  purchase  limit.  '); 
readintnum( prim) ; 


ny r an  1 y s ( ny r s  ,  rndlft,  acost,  ocost, 

utlvl,  rndl,  rnd2,  rnd3,  prim); 
tempval  :=  t r unc ( u 1 1 s p er d o  1  *  100); 


w  r  i  t  e  1  n  ; 

wr it e  In ( ' The  utils/$  percentage  for  the  '.wpnname, 
is  tempval,'  2'); 

wr it  e In  ; 

vrite( 'press  return  to  continue'); 
read ln( templet ) ; 


label 

goon,  goon2  ; 
v  ar 

xx,  yy  :  integer; 
t  empv  al  :  integer; 
templet  :  letter; 

begin 

pbudgetleft  :■  pbudget; 

{  ****  first  take  care  of  scraps,  then  ops  costs, 

then  buys  ****  } 

for  xx  : =  1  to  20  do 

if  ( tmpar ay { xx , 1 ]  <>  -1)  and  ( tmpar ay  I xx , 2 ]  <>  0)  then 

begin 

psys[xx,2]  :=  psys(xx,2]  -  tmparay ( xx , 2 ] ; 
if  psyslxx,2]  <  0  then  psys[xx,2]  :=  0; 
end  ; 

for  xx  : =  1  to  20  do 

if  (psys[xx,2]  <>  0)  then 

pbudgetleft  :»  pbudgetleft  - 

(psys [xx  ,2 ]  *  systvals [ psys Ixx  ,  1  ]  ,  2  ]  ) 

for  xx  :■  1  to  20  do 

if  ( tmpar ay  I xx , 1 ]  <>  -1)  and  ( tmparay l xx , 1 ]  <>  0)  then 

begin 

psyslxx,2]  :®  psys Ixx  ,2 ]  +  tmparay [xx , 1 ] ; 

pbudgetleft  :*  pbudgetleft  - 

( tmp  ar ay [ xx , 1 ]  * 

syetvals[psys!xx,l ] ,1  ])  ; 

end  ; 

{  ****  now  take  care  of  ongoing  rnd  projects  ****  > 
for  xx  : *  1  to  20  do 

if  (psys[xx,ll  <>  0)  and  (psys[xx,3]  <>0)  then 
begin 

if  psyslxx,3]  *  999  then 
begin 

*****  r&D  had  been  scratched  and  later  continued  ********} 
if  r nd a r ay l p s y s [ xx  ,  1  )  ,  1 J  *  1  then 

begin  {*  and  want  to  keep  it  going  *} 
p  s  y  s l xx  ,  3  }  :  *  777; 

psys [ xx  ,2  1  :*  r nd a r a y I p s y s l xx , 1 ] , 2  i  ; 

pbudgetleft  :*  pbudgetleft  - 

systvalslpsystxx.l ]  ,8)  ; 
pbudgetleft  :■  pbudgetleft  - 

(psys(xx,2]  *  s y s t va  1  s [ p s y s ( xx  ,  1  ]  ,  1  ]  )  ; 


e  nd 
else 


{*  want  to  scratch  it  once  more  *} 
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psys(xx,3l  :*  -year; 
end;  {*  end  psyslxx ,3 ]  :=  999  *} 

if  (psyslxx, 3]  =  1)  then 

{  **  then  research  paid  for  last  year  **) 

if  r nd a r a y l p s y s l xx , 1 ] , 1 ]  =  1  then 
begin 

{***  and  want  to  continue  this  year  ***} 

if  ( sy s t va  1  s { p s y s l xx , 1 ] , 4 ]  + 

s y s t v a  1  s l p s y s l xx , 1 ] , 3 1  -1)  <=  year  then 
begin 

{****  system  gone  operational,  count  new  systems  ****} 

psyslxx, 2]  : *  r nda r a y l p s y s l xx , 1 ] , 2 ] ; 

psyslxx, 3)  :=  0; 

pbudgetleft  :=  pbudgetleft  - 
(psyslxx, 2]  * 

systvalslpsyslxx.l ] ,1 ] ) ; 

end  ; 

tempval  :=  6  + 

(year-  sy s t va 1 s l psy s l xx , 1 ] , 4 ] ) ; 
pbudgetleft  pbudgetleft  - 

systvalslpsyslxx.l] .tempval] ; 

end 

else 

{***  don't  want  to  continue  ***} 

psyslxx, 3]  : *  -year 

else 

{  **  else,  research  for  this  had  been  scratched  ** 
if  (psyslxx, 3]  <>  777)  then 
begin 

if  r  nd  ar  a  y  l  p  s  y  s  [  xx  ,  1  ]  ,  1  ]  *  1  then 
begin 

if  ( s y s t v a  1  s l p s y s l xx  ,  1  ]  ,  5  ]  =  2)  then 
begin 

{  **  shelved  had  2  yr  r&d  span,  thus  now  op  **) 

psyslxx,  3]:=0; 

psyslxx, 2}  :=  r nd ar ay l ps y s l xx , 1 ] , 2 ] 

pbudgetleft  :=  pbudgetleft  - 
(psyslxx, 2]  * 

systvalslpsyslxx,l],l]); 
tempval  :=  trunc(1.5  * 

systvalslpsyslxx.l ] ,  7J); 

end 

else 

{  **  shelved  had  3  year  r&d  span  **  ) 

if  (-psyslxx, 3]  >  = 


105 


$ 

$ 

$ 


(■u 


( systvals[psys[xx,l 1 ,4]-l )+ 

s y s t v a  1  s [ p s y s ( xx , 1 ] , 5 ) )  then 
begin 


{*  shelved  with  one  yr  to  go,  thus  now  op  *} 

p  s  y  s [ xx  ,  3 ]  :=  0; 

p  s  y  s [ xx  ,  2  1  :  * 

rndaraylpsyslxx.il  ,2]  ; 
pbudgetleft  :■  pbudgetleft  - 
(psystxx,2]  * 
systvalslpsyslxx.l]  ,1  ])  ; 
tempval  : *  trunc(1.5  * 

systvalslpsys[xx,l]  ,8]) 

end 

else 

begin 

{*  shelved  with  two  yrs  to  go*} 

psy  s i xx  ,  3  ]  :*=  999; 

tempval  :=  trunc(1.5  * 
systvalslpsyslxx.l ] ,7 ]) ; 
end; 

pbudgetleft  ; *  pbudgetleft  -  tempval; 
end  ; 
end  ; 

if  psys(xx,3]  =  777  then  psyslxx,3)  : »  0; 
end  ; 

{  ****  now  handle  new  rnd  projects  ****  } 

for  xx  :=  1  to  20  do 
beg  in 

if  ( rndar ay [ xx , 1 ]  <>  0)  and 

( s y s tva  1  s [ xx , 4 ]  =  year)  then 

for  yy  :=  1  to  20  do 

if  psyslyy.ll  *  0  then 
begin 

psy s l yy  ,  1  J  : =  xx  ; 
psystyy,2]  :=  rndaraylxx,2]; 
if  s y s t va  1  s [ xx  ,  5  ]  *  1  then 
begin 

{  ***  system  operational  ***  ) 
psys(yy,3]  : ■  0; 
psys[yy,2]  :=  r nd a r a y l xx , 2 ] ; 
pbudgetleft  :=  pbudgetleft  - 
(psys(yy,2l  * 
s  y s  t va 1 s l xx , 1 ] ) ; 
if  systvalslxx.il]  <>  0  then 
begin 

systvalslxx.il ]  :  s 

-systvalslxx.il ] ; 


sy 6 tva 1 s l sy s tva  Is  I xx  ,  1 1  ]  ,  1 1  ]  :* 

-  s y s tv  a  1  s t sy s t va  1  s l xx  ,  1  ]  ,  1 1  ]  ; 


if  r nd  ar  a  y l xx  ,  3  3  > 

ps y s t s y s t va  Is t xx  ,  1 1  ]  ,  2  ]  then 
rndaray I xx , 3  3  :  “ 

psystsystvalslxx.il  ]  ,2]  ; 
p s y s l 6 y s t v a  1 s ( xx  ,  1 1  ]  ,  2  ]  :  = 

p s y s ( s y s t va Is ( xx  ,  1 1  ]  ,  2  ]  - 
rndaray [ xx  ,  3  )  ; 
p  s  y  s [ y  y  ,  2  ]  :*  psys(yy,2]  + 

rndaray [ xx  ,  3  ]  ; 
pbudgetleft  :*  pbudgetleft  - 
(  r  nd  a  r a  y  t  xx  ,  3  ]  * 
systvals [ systvalslxx.ll ]  ,10]  )  ; 

end  ; 

end 

else  psysfyy,3]  :=  1; 
pbudgetleft  :=  pbudgetleft  - 

(systvalslpsyslyy,l],63); 

goto  goon; 
end  ; 


jn:  end ; 


{  ***  handle  modify  for  systems  which  had 
r&d  done  in  a  previous  yr  ***  } 

for  xx  :=  1  to  20  do 
if  modfytxx]  >  0  then 
begin 

if  modf  y [ xx  3  >  ps y s l s y s t va 1 s I p s y s [ xx , 1 ] , 1 1 ] , 2 3  the 
modfytxx]  :=  p s y s [ s y s t v a  1 s l p 6 y s l xx , 1 3 , 1 1 ]  , 2 3 ; 
psyslsystvalslpsystxx.l  3  ,11  1  ,2]  :*= 

p s y s [ s y s t v a  1  s [ p s y s ( xx , 1 3  , 1 1  3  ,  2  ]  -  modfylxxJ; 
psys[xx,2]  :=  psys[xx,2]  +  modfytxx); 
pbudgetleft  :=  pbudgetleft  - 
(modfytxx]  * 

systvals[systvals[psyslxx,l  3 ,11  3 ,10] ) ; 

end  ; 

{  ****  now  account  for  intel  reports  co^ts  ****  } 

for  xx  : =  1  to  4  do 
begin 

if  tinteltxx]  <>0  then  pbudgetleft  : =pbudget  le f t  -100; 
inteltxx]  :=  tinteltxx]; 
e  nd  ; 

writeln('you  spent  this  much  this  year  ', 
pbudget-pbudgetleft) ; 
read( templet) ; 


overspent  : 


0; 


* 


{  ***  check  to  see  if  overspent  budget, 

if  so,  penalize  by  amount  ********  > 

if  pbudgetleft  <  0  then 
begin 

pbudgetny  :=  pbudget  +  pbudgetleft; 
pbudget  :=  pbudget  +  pbudgetleft; 
writeln('  ******  You  overspent  your  budget  ', 
'for  this  year.  ******'); 
wr  ite  ln( 'This  will  result  in  a  reduction  in  your 
'next  years  budget.'); 

writeln('In  addition,  current  weapon  systems  had 
'to  be  scratched  in'); 

wr  i  t e  In ( ' o rd er  to  get  your  budget  in  line.'); 
write('  press  return  to  continue  '); 

r  ead ( temp  let); 

overspentcnt  :=  overspentcnt  +  1; 
overspent  :=  overspentcnt; 

{***  scrap  systems,  starting  with  newest  in  inventory 

while  pbudgetleft  <  0  do 
begin 

for  xx  :=  20  downto  0  do 
begin 

if  xx  E  0  then 
begin 

pbudget left  : *  0 ; 
goto  goon2; 
end 

else 

if  psyslxx,2]  >  0  then 
begin 

psys[xx,2]  :=  psys(xx,2]  -  1; 

pbudgetleft  :=  pbudgetleft  + 

systvalslpsystxx,l ) ,2] 

goto  goon2 ; 
end  ; 

end  ; 

goon2 :  end  ; 

end  ; 


procedure  playerturn; 


answer 


:  letter; 
integer; 


begin 

answer  : =  '  ; 

while  answer  <>  '4'  do 
beg  in 

d  i s  playmenu ; 
read( answer) ; 

if  1 e ng t h( an s wer )  <>  1  then  answer 

case  answer  of 
'  1  '  :  report; 

'  2  '  :  orders; 

'  3  '  :  wpnanalys; 

'4":  exorders; 


'h' ,'H" 


else 


begin 

num  : s  4 ; 
helpscr(num) ; 
end  ; 


writelnC 'Improper  response,  hit 
'return  to  continue'); 
r  e a d ( an  sve r  )  ; 
end;  {end  case) 
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procedure  endofyear; 


ptr ,  xx  :  integer ; 
templet  :  letter ; 
cofftot,  pofftot:  integer; 
tl,  1 2  :  integer; 


beg  in 

cbmbtot  :*  0;  cbmbcnt  :  =  0; 

cmsltot  :*  0;  cmslcnt  :  ■=  0; 

cftrtot  :*  0;  cftrcnt  :=  0; 

cabmtot  :■  0;  cabncnt  : *  0; 

for  xx  : =  1  to  20  do 

if  (csys(xx,l]  <>  0)  and  (csys(xx,3]  =  0)  then 
begin 

ptr  : *  c  sy s [ xx  ,  1  ]  ; 

templet  :=  copy( systname I ptr  1  , 1  , 1  )  ; 
if  (templet  =  'B')  then 
begin 

cbmbcnt  :■  cbmbcnt  +  c  sy s [ xx  ,  2  ]  ; 
cbmbtot  :=  cbmbtot  ♦ 

( sy 8 t va  1  s [ p t r  ,  3  ]  *  csys [xx ,2 ] )  ; 

end  ; 

if  (templet  ■  'M')  then 
begin 

cmslcnt  :■  cmslcnt  +  csys(xx,2]  ; 
cmsltot  : *  cmsltot  + 

( 6y s t va 1 s [ p t r  ,  3 J  *  csyslxx,2j); 

end  ; 

if  (templet  *  'F')  then 
begin 

cftrcnt  : *  cftrcnt  ♦  c  s  y  s l x  x  ,  2  ]  ; 
cftrtot  :*  cftrtot  + 

( sy s tva Is l ptr  ,  3  ]  *  csys(xx,2]); 

end  ; 

if  (templet  *  'A')  then 
begin 

cabmcnt  :=  cabmcnt  +  csys[xx,2]; 
cabmtot  :*  cabmtot  ♦ 

( s y s t va 1 s l p t r  ,  3  ]  *  csyslxx,2]); 

end  ; 
end  ; 


pbmb  t  o  t 
pms 1  tot 
p  f  t  r  t  o  t 
p  abmt  o  t 


0; 

pbmb  c  n  t 

:«  0; 

0; 

pms 1 c  n  t 

:  =  0  ; 

0; 

pf  trcnt 

:=■  0; 

:  =  0  ; 

p  a  bmc  n  t 

0; 

mmmwm 


for  xx  : “  1  to  20  do 

if  (psys[xx,ll  <>  0)  and  (psys[xx,3]  «  0)  then 
begin 

ptr  : *  psy s [ xx , 1 ] ; 

templet  :*  c opy ( s y s t name l p t r ] , 1 , 1 ) ; 

if  (templet  *  'B')  then 
begin 

pbmbcnt  :=  pbmbcnt  ♦  psys [xx , 2 ] ; 
pbmbtot  :*  pbmbtot  + 

( s y s t va  Is [ p tr , 3 ]  *  psys[xx,2]); 

end  ; 

if  (templet  ■  'M')  then 
begin 

pmslcnt  :=  pmslcnt  +  psyslxx,2]; 
pmsltot  :=  pmsltot  + 

( sys tva  Is  £ ptr , 3 ]  *  psys (xx ,2 ] ) ; 

end  ; 

if  (templet  =  'F')  then 
begin 

pftrcnt  :=  pftrcnt  +  psys [ xx  ,  2  ]  ; 
pftrtot  :=  pftrtot  + 

( s y s t v a  1  s l p t r  ,  3  ]  *  psys(xx,2]  )  ; 

end  ; 

if  (templet  *  ' A ')  then 
beg  in 

pabmcnt  :=  pabmcnt  +  psy s [ xx , 2 ] ; 
pabmtot  :=  pabmtot  + 

( systva Is [ ptr , 3 ]  *  psys [ xx ,2 ] ) ; 

end  ; 
end  ; 

{  ******************************************************  } 

{  ***  apply  penalties  for  unbalanced  forces  ***  } 

{  unbalanced  means  that  have  less  than  half  the  number  of  } 
{  one  system  than  another.  For  example,  if  we  have  } 
{  100  bmbrs  and  75  msls  we  have  a  balanced  force.  If,  ) 

(  however,  we  had  100  bmbrs  but  only  40  msls  this  is  } 

{  unbalanced.  The  penalty  in  this  case  is  } 

{  utils  *  ((2.01  *  40)/100)  or  approx  8/10  of  the  } 

(  util  values  } 

{  ******************************************************  } 


if  cbmbcnt  >  cmslcnt  then  (more  bombers) 

if  (trunc(2.01  *  cmslcnt))  <  cbmbcnt  then 

cbmbtot  :=  trunc(((2.01  *  cmslcnt)  / 

cbmbcnt)  *  cbmbtot); 

if  cmslcnt  >  cbmbcnt  then  (more  missiles) 

if  (trunc(2.01  *  cbmbcnt))  <  cmslcnt  then 
cmsltot  :=  trunc(((2.01  *  cbmbcnt)  / 

cmslcnt)  *  cmsltot); 


if  cftrcnt  >  cabmcnt  then  (more  fighters) 

if  (trunc(2.01  *  cabmcnt))  <  cftrcnt  then 
cftrtot  : *  trunc(((2.01  *  cabmcnt)  / 

cftrcnt)  *  cftrtot); 


if  cabmcnt  >  cftrcnt  then  {  more  abm's  ) 

if  (trunc(2.01  *  cftrcnt))  <  cabmcnt  then 
cabmtot  :*  trunc(((2.01  *  cftrcnt)  / 

cabmcnt)  *  cabmtot); 

if  pbmbcnt  ^  pmslcnt  then  {more  bombers) 

if  (trunc(2.01  *  pmslcnt))  <  pbmbcnt  then 
pbmbtot  :=  trunc(((2.01  *  pmslcnt)  / 

pbmbcnt)  *  pbmbtot); 

if  pmslcnt  >  pbmbcnt  then  (more  missiles) 

if  (trunc(2.01  *  pbmbcnt))  <  pmslcnt  then 
pmsltot  :=  trunc(((2.01  *  pbmbcnt)  / 

pmslcnt)  *  pmsltot); 

if  pftrcnt  >  pabmcnt  then  {more  fighters) 

if  (trunc(2.01  *  pabmcnt))  <  pftrcnt  then 
pftrtot  :=  trunc(((2.01  *  pabmcnt)  / 

pftrcnt)  *  pftrtot); 

if  pabmcnt  >  pftrcnt  then  {  more  abm's  ) 
if  (trunc(2.01  *  pftrcnt))  <  pabmcnt  then 
pabmtot  :=  trunc(((2.01  *  pftrcnt)  / 


pabmcnt)  * 

if 

c  bmb  to  t 

< 

0 

then 

cbmb tot 

* 

32700 

if 

cmsltot 

< 

0 

then 

cms 1  to  t 

= 

32700 

if 

pf  trtot 

< 

0 

then 

pftrtot 

E 

32700 

if 

pabmtot 

< 

0 

then 

pabmtot 

= 

32700 

if 

pbmb  tot 

< 

0 

then 

pbmb  tot 

E 

32700 

if 

pmsltot 

< 

0 

then 

pmsltot 

= 

32700 

if 

cftrtot 

< 

0 

then 

cftrtot 

= 

32700 

if 

cabmtot 

< 

0 

then 

cabmtot 

= 

32700 

tl  :=  cbmbtot  -  pftrtot; 

t2  :=  cmsltot  -  pabmtot; 

if  ((tl  <  0)  or  ( 1 2  <  0))  then  overdefend  : 

else  overdefend  : 

if  tl  <  0  then  tl  : =  0; 
if  t2  <  0  then  t2  :=  0; 
cofftot  :  *  tl  ♦  1 2  ; 
tl  :  *  pbmbtot  -  cftrtot; 

t2  :=  pmsltot  -  cabmtot; 

if  tl  <0  then  tl  :*1  0; 
if  t2  <0  then  t2  :«  0; 
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pofftot  : *  tl  +  1 2  ; 
c  1  r  8  c  r  ; 

if  cofftot  <  0  then  cofftot  : ■  32700; 
if  pofftot  <  0  then  pofftot  :■  32700; 

u t  i  la r ay l ye ar  ,  1  ]  :=  t r unc ( c of f t o t / 1 0 )  *  10; 

u t i 1  a r ay ( y e a r  ,  2  ]  :  ■  t r unc ( po f f t o t / 1 0 )  *  10; 

writeln('End  of  year  intelligence  reports 
'indicated  that'); 
if  cofftot  >  pofftot  then 

writeln  ('you  were  behind  in  the  "Arms  Race" 
'for  this  year.'); 
if  pofftot  >  cofftot  then 

writeln  ('you  were  ahead  in  the  "Arms  Race" 
'for  this  year.'); 
if  pofftot  =  cofftot  then 

writeln  ('both  sides  were  at  about  the  same 
level  in  the  "Arms  Race".'); 

writeln; 

writeln('hit  a  return  to  continue'); 
r ead( temple  t )  ; 


{  ******************************************************  } 
{  *****  possibly  change  values  of  some  of  the  r&d  systems) 
{  this  is  to  reflect  changes  in  economy  and  bad  estimates) 
{  from  competing  defense  contractors  } 

{  ******************************************************  } 


for  xx  :=  1  to  20  do 
begin 

if  ( s y s t va Is l xx  ,  4 ]  °  year)  and 

( s ys t va  1  s [ xx , 5 1  *  2)  then 

begin 

sy s  t va  Is [ xx  ,  1  ]  := 

t rune ( ( sy s t va Is ( xx , 1 ] / 1 . 5  + 

( sys tva  1  s ( xx  ,  1 ]  *  r a nd om ) ) / 1 0 . 0 )  *  10 

if  sys tva  Is  l  xx  ,  2  ]  >  sy s tva  Is l xx , 1 ]  then 

s y s t v a  1 8 l xx , 2  )  :=  sy s tva 1 s l xx , 1 )  -  10; 

s y s t va  1  s [ xx  ,  7 ]  t r unc ( ( s y s t va  1  s [ xx  ,  7  ] / 1  .  6 

( s y s t v a  1  s  l  xx , 7 ]  *  r a nd om ) ) / 1 0 . 0  )  * 
s  y  s  t  v a  1  s  [  xx  ,  3  ]  :  *=  t  r  unc  (  (  s y  s  t  va  1  s  l  xx  ,  3  ]  /  2 . 1 

( s y s t v a  1  s [ xx , 3 ]  *  r andom) ) / 1 0 . 0  )  * 

e  nd  ; 


if  ( sy s t va Is t xx , 4 ] ♦ 1  *  year)  and 
( systvals [xx , 5  1  ■  3)  then 
begin 

sys tva Is [ xx  , 2  ]  : 11  t  rune  (  (  sy  s  t  va  Is  [  xx  ,  2  ]  /  1 . 8  + 

( s y s t v a  1 s [ xx , 2 ]  *  random) ) /I  0 .0  )  *  10 
sy s tva Is [ xx , 8  ]  :■  t rune ( ( sy s tva Is l xx , 8 ) / 1  .  7  + 

( sys tva  1  s [ xx  ,  8  ]  *  r andom ) ) / 1 0 . 0  )  *  10 
sys tva Is [ xx , 3  ]  :■  t r unc ( ( s y s t va 1 s [ xx , 3 ] / 2 . 2  + 

( s ys tva  1  s [ xx  ,  3 ]  *  r andom ))/ 1 0 . 0  )  *  10 

end  ; 

end  ; 


*****  calculate  if  there  is  a  war  or  not  *****  } 


if  chancevar  >  random  then 
begin 


c lrscr ; 

wr  i  t  e  1  n ; 

writeln(  ' 

U 

W 

W 

» 

* 

A  RRRRRRR' ) ; 

writeln(' 

W 

W  W 

U 

* 

> 

* 

A  A  R 

R'); 

wr i t  e  In (  ' 

V 

w  w 

W 

* 

> 

* 

AAAAA  RRRRRRR'); 

wr ite  ln(  ' 

w 

w 

W  W 

* 

9 

* 

A  A  R 

RR  '  )  ; 

wr ite  ln(  ' 

w 

W 

9 

* 

A  A  R 

RR')  ; 

wr it  e 1 n ; 

wr ite  ln(  ' 

Due  to  worldwide 

tensions, 

a  war 

broke 

out'. 

* 

this  year.  This 

brief  war 

ended 

with') 

> 

if  cofftot  <  pofftot  then 
begin 

budget  : *  budget  -  800; 
pbudget  :*  pbudget  -  200; 
pbudgetny  poudgetny  -  200; 

if  ut i laray [ year  ,  1 1  =0  then  ut  i  laray l year , 1 ]  :*  -1 

else  (flag  this  as  a  war  year) 

u t i laray  l  year  ,  1  )  :=  -u t i 1  a r a y l year ,  1 J ; 

writeln('you  as  the  VICTOR.  Your  budget,  however,', 
was  still  reduced  by  $200.'); 

end  ; 


if  cofftot  >  pofftot  then 
begin 

budget  :*  budget  -  200; 
pbudget  :■  pbudget  -  800; 
pbudgetny  :=pbudgetny  -  800; 

if  u t i 1  a r a y [ y e ar  ,  2  ]  *  0  then  ut i laray [ year , 2  ]  :  *  -1 

else 
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ut  i  laray l year , 2 }  :■  -ut  i  laray I  year ,  2]  ; 

writeln('you  as  the  LOSER.  Your  budget,', 

'  consequently,  has  been  reduced  by  $800.'); 

end  ; 

if  cofftot  *  pofftot  then 
begin 

budget  :*  budget  -  400; 
pbudget  :K  pbudget  -  400; 

if  u t  i  laray L year , 1 ]  *  0  then  u t  i  laray [ yea r , 1 3  :*  -1 

else 

utilaray [ year , 1 1  :*  -u t i laray [ year  ,  1 J; 

if  ut i laray l year , 2 ]  ■  0  then  ut  i  laray t year , 2 ]  : *  -1 

else 

u t i laray ( year , 2 ]  : *  -u t i laray l yea r  ,  2  1  ; 

writeln('a  truce  between  forces.', 

'  Your  budget  has  been  reduced  by  $400.'); 

end  ; 

{  ********  nake  it  harder  to  have  another  war  ************  } 


warcount  :*  warcount  ♦  2.5; 
wr ite In ; 

write('press  return  to  continue'); 
r  ead  ln(  temp  1  e  t  )  ; 
end ; 

{  ****  calculate  chance  of  war  next  year  ****  ) 

chanc ewar  : ■  0.0; 
if  cofftot  <  pofftot  then 

chancewar  :=  ( po f f t o t-co f f t o t )  /  (2000  +  (500*year)); 
if  pofftot  <  cofftot  then 

chancewar  : *  ( c of f t o t - po f f t o t )  /  (2000  +  (500*year)); 
chancewar  :*  chancewar  /  (warcount  +  1.0); 
if  chancewar  <  0.15  then  chancewar  :=  0.15; 


end  ; 


procedure  endofgame; 


var 

xx  :  integer; 

comptot,  playtot  :  real; 

begin 
c  1  r  s  c  r  ; 
vr it  e In  ; 

writeln('  The  game  is  over.  The  yearly  util 
'totals  are  as  follows:  '); 

wr iteln; 

wr it e ln( 'Year  Computers  total 

Players  total'); 
comptot  :*  0.0;  playtot  :«  0.0; 
for  xx  :=  1  to  8  do 
beg  in 

if  ( u t i la r ay [ xx , 1 }  >■  0)  and 
(u t i lar ay l xx , 2 ]  >=  0)  then 

vriteln('  ',xx,  u t i 1  a r a y [ xx , 1 ] : 20 , 

utilaray[xx,2]  :  26  ) 

else 

begin 

u t i lar ay  I xx , 1 ]  :=  ab s ( u t i  la r a y l xx , 1  ]  )  ; 

u t i lar ay ( xx , 2 ]  :*  ab s ( u t i 1 aray  l  xx  ,  2  ]  )  ; 

writeln('  ',xx,  u t i lar ay [ xx , 1  1  :  20 , 

u  t i 1 aray ( xx  ,  2 1  :  26  , 
war  year  '  )  ; 

end  ; 

comptot  :*  comptot  ♦  int ( u t  i  lar ay [ xx  ,  1  1  )  ; 
playtot  :*  playtot  +  i nt ( ut i laray l xx  ,  2  1  )  ; 
end  ; 

wr it  e  In  ; 

wr  it e ln( ' Conpu ter  grand  total  =  ', 
trunc(comptot/10) , '0' ) ; 
wr  ite In ( ' Playe r s  grand  total  =  ', 
trunc(playtot/10) ,  '  0  '  ) ; 

wr i t  e 1 n ; 

write( 'Based  on  the  above  data,  '); 
if  comptot  >  playtot  then 

write('the  COMPUTER  has'); 
if  comptot  <  playtot  then  write('Y0U  have'); 
if  comptot  *  playtot  then 

wr ite( 'NOBODY  (a  draw)  has'); 
writeln('  been  declared  the  winner.'); 
end; 
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procedure  prntrprt; 


var 

xx  :  integer; 

tempstr,  tempstrg  :  name; 


begin 

tempstr  :■  'YEAR.'; 

8tr(year:l, tempstrg); 

tempstr  :»  c one  a t ( t emps t r , t emp s t r g ) ; 

ass ign(sysrprt, tempstr) ; 
rewrite(sysrprt)  ; 

with  lineprt  do 
beg  in 

1 inechr  : ■  '  ; 

write(sysrprt, lineprt)  ; 

linechr  :=  'pbmbcnt  *  '; 
s  t  r ( pbmbcnt :3,tempstr) ; 
linechr  :=  c one  a t ( 1 inec hr , t emp s t r , 
writeCsysrprt, lineprt); 

linechr  :»  'pmslcnt  *  '; 
str(pmslcnt:3, tempstr); 
linechr  :■  c one at ( 1 inechr , t emp s t r 
write(sysrprt, lineprt); 

linechr  :=  'pftrent  *  '; 

str(pftrcnt:3, tempstr) ; 
linechr  :*  c one at ( 1 inechr , t emps t r 
write(sysrprt, lineprt); 

linechr  : =  'pabment  =  '; 

str(pabmcnt:3, tempstr) ; 
linechr  :*  c one  at ( 1 inechr , t emps t r 
write( sysrprt  ,  lineprt) ; 

linechr  :*  'bestbmb  ■  '; 

str(systutillbestbmbl :3 .tempstr) ; 
linechr  :*  c one  a t ( 1 inechr , t emp s t r 
write(sysrprt,lineprt) ; 

linechr  :*  'bestmsl  =  '; 

str(systutil{bestmsll :3, tempstr) ; 
linechr  :*  c one  a t ( 1  in ec hr , t emp s t r 
write(sysrprt, lineprt) ; 


if  ( ut i la r ay l year , 1  1  >“0)  and 
( u  t  i  lar  ay  I  year  » 2  ]  >**0)  then 
linechr  :  *  'waryear  *  0. 
else 

if  ( u t i la  ray { year  ,  1  1  <  0)  and 
( ut i lar ay  I  year  ,  2  ]  <  0)  then 

linechr  : “  'waryear  “3.  '  {tie  in  war) 

else 

if  uti larayl year  ,  1 1  <  0  then 

linechr  :=  'varyear  “2.  '  {player  won) 

else 

linechr  :*  'waryear  *  1.  ' ; {computer  } 

vrite(sysrprt, lineprt)  ; 

linechr  :*  'overspent  * 
strCoverspent :1 .tempstr)  ; 

linechr  :*  c one  at ( 1 inechr , temps t r ,  '); 

write(sysrprt,lineprt); 

if  pbudgetleft  >  100  then 


linechr 

: ■  'budget  left  *  1 . 

* 

else 

linechr 

: *  'budgetleft  =  0. 

» 

vrite(sysrprt, lineprt)  ; 

linechr  :=  'overdefend  *  '; 
s t r ( overde f end : 1 ,  tempstr); 
linechr  :  **  concat(  1  inechr  ,  teopstr  , 
write(sysrprt , lineprt) ; 

1 inechr  : ■  '  '  ; 

write( sysrprt , lineprt) ; 

end  ; 

close( sysrprt)  ; 


*1 


i 


main  routine 


begin 


init ; 

for  year  : 
begin 
budgetny 


1  to  8  do 


budgetny  :M  budget  + 

(Trunc  ((700.0  *  Random)  /  10.0)  *  10) 
if  budget  *  pbudget  then  pbudgetny  :■  budgetny 
else  pbudgetny  : *  pbudget  + 

(Trunc  ((700.0  *  random)  /  10.0)  *  10) 

report ; 
playerturn ; 
compturn; 
endof  year ; 

tempbudget  :*  Trunc((500.0  *  Random)  /  10.0); 
budget  :*  budget  +  (tempbudget  *  10); 
if  budgetny  *  pbudgetny  then  pbudget  : *  budget 
else  pbudget  :  =  pbudget  +  (tempbudget  *  lO); 
if  pbudget  <  1500  then  pbudget  : *  1500; 

prntrprt; 

end  ; 

end  of game ; 


{*******  program  to  initialize  the  weapon  system  file  *****} 


program  initwsys; 
type 

n  ante  =  s  t  r  ing  [  6  )  ; 
f i lei ine  *  record 

s  y  s  name  :  n  ame ; 

ac  qco  s  t  , 

op  s c  os  t , 

ut i lval , 

yr f orrd  , 

avai 1  in , 

r ndyr  1  , 

r ndy r 2  , 

rndy r 3 , 

pur  ch lm , 

mode  os  t , 

modflag  :  integer; 
end  ; 


var 

sy sdata 
tempdat a 


file  of  fileline; 
fileline; 


beg  in 

ass  ign( sysdata ,  'WPNSYS.DAT 
revrite(sysdata) ; 
with  t empd a t a  d o 
begin 


sys  name 

:=  '  B- 

ac  qcos  t 

:=  50 

op  s c  os  t 

:=  30 

u  t  i  1  va  1 

:=  20 

y r  f  o  rrd 

0; 

a va i  1  i  n 

:=  0; 

rndyrl  : 

=  0; 

rndyr2  : 

=  0; 

rndyr3  : 

=  0; 

pur  ch  lm 

:=  30; 

mode  os  t 

:=  0; 

modf lag 

:«  0; 

wr  it  e ( 

s  y  s  d  a  t 

sysnane 

:  =  'M- 

a c  qc  os  t 

:  =  70  ; 

op  SC  0  s  t 

:=  50; 

u  t  i  lva  1 

:=  A0; 

yr  for rd 

:=  0; 

a va i  1  in 

0; 

rndyrl  : 

=  0; 

rndyr2  : 

=  0; 

tempdata) 


rndyr 3  :  ■  0  ; 

pur ch  lm  : ■  20  ; 
mode  os  t  : ■  50  ; 
modflag  :=  -10; 

wr  ite( sysdata ,  tempdata) 
sysname  : ■  ' F-l  '  ; 
aeqeost  : *  100; 
opscost  :  ■  60; 
u  t  i  lva  1  :  *  50  ; 
yr  f orrd  :  =  0  ; 
availin  :=  0; 
rndyr 1  : =  0 ; 

rndyr 2  : *  0 ; 

rndyr3  :  ■  0 ; 
purch  lm  : =  30 ; 
modcost  :=  70; 
modflag  :  *  -7; 

wr  ite( sysdata  ,  tempdata) 


sysname 

:=  ' ABK 

aeqeost 

:=  40; 

opscost 

:=  20; 

utilval 

:=  20; 

yrforrd 

:=  0; 

availin 

:=  0; 

rndyrl 

-  0; 

rndyr  2 

=  0; 

rndyr 3 

=  0; 

purch  lm 

s-  30; 

modcost 

:=  0; 

modflag 

0; 

wr ite( sysdata ,  tempdata) 
sysname  : =  ' B-2  ; 

aeqeost  :=  100; 
opscost  :  =  50  ; 
utilval  :=  200; 
yrforrd  :  *  1; 
availin  :=  3; 
rndyrl  :  *  400; 
rndyr2  :=  700; 
rndyr3  :  =  500  ; 
purch lm  :■  20 ; 
modcost  :  *  0 ; 
modflag  : =  0  ; 

wr  i  t e ( s y s d a t a  ,  tempdata) 


sysname 

=  '  M-  2 

aeqeost 

-  100; 

opscost 

=  90; 

utilval 

-  150; 

yrforrd 

=  2; 

availin 

=  3; 

rndyrl 

=  300; 

purchlm  :  “  20; 
modcost  :  =  0  ; 
modf lag  : *  0  ; 
vrite(sysdata, 


sysname 

«  '  F-  1 A 

acqc  os  t 

=  150; 

opscos  t 

*  80; 

u  t  i  lva  1 

=  80; 

yr  f or rd 

=  1; 

ava i  1  in 

x  l ; 

r ndyr 1 

=  200; 

rndyr 2 

=  0; 

r ndyr 3 

=  0; 

purch  lm 

=  20; 

mode  o s  t 

=  0; 

modf  lag 

=  -3; 

write( sysdata. 


tempdata) ; 


t  empd  a  t  a )  ; 


s  y  sname 

=  'ABM 

acqc  os  t 

=  100; 

opscos  t 

=  50; 

u  t  i  lva  1 

=  100; 

yr  f orrd 

=  1; 

ava i  1  in 

-  2; 

rndyr 1 

=  400; 

rndyr 2 

=  700  ; 

rndyr 3 

=  0; 

purchlm 

=  20; 

modcost 

=  0; 

modf 1 ag 

-  0; 

wr ite( sysdata  , 

s  y  sname 

«  B-3 

acqc  os  t 

-  200  ; 

opscos  t 

-  80; 

u  t i  lva  1 

=  200  ; 

yr  f  o  r  r  d 

=  2; 

a va  i  1  in 

=  3; 

r  n  d  y  r  1 

=  800  ; 

rndyr2 

*=  800; 

r nd  y  r  3 

=  800  ; 

purchlm 

=  20; 

mode  o  s  t 

=  0; 

modf  lag 

x  0; 

vrite( sysdata  , 

sysname 

=  ' M- 1  A 

acqc  os  t 

=  100  ; 

op  sc  os  t 

=  60; 

u  t  i  lv  a  1 

=  70; 

y  r  f  o  r  r  d 

*  1  ; 

a va  i  1  in 

=  1; 

r  nd  y r  1 

=  100; 

rndyr 2 

x  0; 

rndyr  3 

=■  0; 

purch  lm 

=  25; 

tempdata )  ; 


tempdata)  ; 
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modcost  :  ■ 

0; 

modflag  : = 

-2; 

wr ite ( 6y sdata ,  tempdata) 

sysname  := 

M-3 

acqcost  : = 

150  ; 

opscost  := 

100  ; 

utilval  : = 

280; 

yrforrd  :  * 

2; 

availin  := 

3; 

rndyrl  := 

300  ; 

r  n  d  y  r  2  :  = 

600  ; 

rndyr3  := 

800  ; 

purch Ira  : = 

20; 

modcost  :  = 

0; 

modflag  :  = 

0; 

wr it e( sysdata  ,  tempdata) 


sysname 

=  'M-4 

acqcost 

=  100; 

opscost 

=  80; 

utilval 

=  160; 

yr  f or rd 

=  2; 

availin 

=  2; 

rndyrl 

=  800  ; 

rndyr2 

=  600  ; 

rndyr3 

=  0; 

purch  lm 

=  20; 

modcost 

=  0; 

modf  lag 

*  0; 

wr  ite( sysdata  ,  tempdata) 
sysname  : =  ' F-2  ' ; 

acqcost  :=  160; 
opscost  :=  140; 
utilval  : *  300; 
yrforrd  :=  2; 
availin  :=  3; 
rndyr 1  : *  300 ; 

rndyr 2  : =  1 000  ; 

rndyr3  :=  1000; 
purchlm  :=  25; 
modcost  :  *  0; 
modflag  : =  0; 

wr  ite( sysdata  ,  tempdata) 
sysname  :=  'ABK-3  '  ; 
acqcost  :  *  100; 
opscost  :=  50; 
utilval  :=  200; 
yrforrd  :=  2; 
availin  :  ■  1; 
r nd  yr 1  : =  1000  ; 

rndyr 2  :  =  0  ; 

rndyr 3  : *  0  ; 
purchlm  : *  30 ; 
mode o st  :  =  0  ; 


modf  lag  : ■  0  ; 

vr  ite( sysdata ,  tempdata) 
sysname  : =  ' F-3  ; 

acqcost  : *  200 ; 
opscos  t  :  =  60  ; 
utilval  :  =  200; 
yrforrd  :  *  3; 
availin  :  =  2; 
rndyrl  : *  1000; 
rndyr 2  : =  1 800 ; 

rndyr3  :=  0; 
purch  In  : =  20 ; 
modcos  t  :  =  0  ; 
modf  lag  : =  0  ; 

wr  ite( sysdata ,  tempdata) 


end  ; 

close( sysdata)  ; 


/*******  M<1  TEMPO  ICAI  Code  ***********/ 
j * ★ ★ * ★ ★ ★  TMPOICAI  ★*★★★*★*★*/ 


prefix  cycle, 
prefix  the  . 
prefix  varc lear  . 

infix  for. 
infix  balanced, 
infix  war  . 
inf ix  over  spent  . 
infix  overdefend, 
infix  budgetleft. 

postfix  offense, 
postfix  defense, 
postfix  force, 
postfix  check, 
post  f ix  paused  . 

/*  no  goal  in  this  one  goal  =  done.  *1 

initialdata  =  [the  consultation  is  over]. 

if  do( loadcache  year.X)  and 
bestbmb  =  B  and 
bestmsl  *  M  and 
B  >  M  and 

d i sp la y ( I ' The  best  offensive  system 
year  was  a  bombe r . ' , n 1 1 ) 
then  the  answer  for  cycle  X  = 

'the  best  offensive 

if  bestbmb  =  B  and 
bestmsl  =  M  and 
M  >  B  and 

d is p la y ( [ ' The  best  offensive  system  this 
'year  was  a  m  i  s s i 1 e  .  ' , n  1  ]  ) 
then  the  answer  for  cycle  X  = 

'the  best  offensive  system  is  a  missile'. 

if  bestbmb  =  B  and 
bestmsl  =  M  and 
M  =  B  and 

d i s p 1  a y (  [ ' Th e  offensive  systems  this', 

year  were  equally  e f f ec t i ve . '  ,  n  1  1  ) 
then  the  answer  for  cycle  X  = 

'the  offensive  systems  were  equal'. 


this'  , 

system  is  a  bomber 
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if  the  answer  for  cycle  X  is  known  and 

cycle  X  balanced  force  is  complete  and 
varclear  X  is  complete 
then  cycle  X  is  complete. 

if  cycle  1  is  complete  and 

cycle  2  is  complete  and 

cycle  3  is  complete  and 

cycle  4  is  complete  and 

cycle  5  is  complete  and 

cycle  6  is  complete  and 

cycle  7  is  complete  and 

cycle  8  is  complete 

then  consultation  is  complete. 

if  consultation  is  complete  and 

d i s p 1  ay ( l ' The  consultation  is  over.', nil) 
then  the  consultation  is  over. 

if  cycle  X  balanced  offense  is  complete  and 

cycle  X  balanced  defense  is  complete  and 

cycle  X  war  check  is  complete  and 
cycle  X  overspent  check  is  complete  and 
cycle  X  overdefend  check  is  complete  and 

cycle  X  budgetleft  check  is  complete  and 

cycle  X  paused  is  known 
then  cycle  X  balanced  force  is  complete. 

if  pbmbcnt  =  PB  and 
pmslcnt  =  PM  and 
PB  >*  PM  and 
PB  <=  (2.01  *  PM)  and 

d i s p 1  a y (  ( ' You r  offensive  systems  for  year 
X,'  were  b a  1 anc e d  .  '  ,  n  1  1  ) 
then  cycle  X  balanced  offense  is  complete. 

if  pbmbcnt  =  PB  and 

pms lent  =  PM  and 

PM  >=  PB  and 
PM  <*  (2.01  *  PB)  and 

d i s p 1  a y  (  [  '  You r  offensive  systems  for  year 
X,'  were  balanced. ' ,nl 1 ) 
then  cycle  X  balanced  offense  is  complete. 

if  pbmbcnt  =  PB  and 

pms lc  nt  =  PM  and 

PM  >  PB  and 
PM  >  (2.01  *  PB)  and 

d i s p 1  a y (  l ' You r  offensive  systems  for  year 
X,'  were  NOT  b a  1  a nc e d  .  '  ,  n  1  , 

'This  results  in  a  penalty  appli 


to  your  total  utils  which  , n 1  , 

'means  that  your  systems  were  less', 

effective  than  you  ant ic ipated'  ,nl  ,nl  ]  ) 
then  cycle  X  balanced  offense  is  complete. 


if  pbmbcnt  =  PB  and 
pm  slcnt  =  PM  and 
PB  >  PM  and 
PB  >  (2.01  *  PM)  and 

d  i  s p  1  a y (  f  '  Yo u r  offensive  systems  for  year  ', 

X,'  were  NOT  balanced. '  ,  n  1  , 

'This  results  in  a  penalty  applied', 
to  your  total  utils  which', nl, 

'means  that  your  systems  were  less  ', 
'effective  than  you  anticipated', nl, nil) 
then  cycle  X  balanced  offense  is  complete. 


if  pftrcnt  =  PF  and 
pabmcnt  =  PA  and 
PF  >  PA  and 
PF  >  (2.01  *  PA)  and 

d  i  s p  1  a y (  l  '  Y ou r  defensive  systems  for  year  ', 

X,'  were  NOT  balanced. ' , n 1 , 

'This  results  in  a  penalty  applied  ', 

'to  your  total  utils  which', nl, 

'means  that  your  systems  were  less  ', 
'effective  than  you  anticipated', nl, nil) 
then  cycle  X  balanced  defense  is  complete. 


if  pftrcnt  =  PF  and 
pabmcnt  =  PA  and 
PF  >=  PA  and 
PF  <=  (2.01  *  PA)  and 

d  i  s p  1  a y (  t  '  Yo u r  defensive  systems  for  year 
X,'  were  balanced.', nil) 
then  cycle  X  balanced  defense  is  complete. 


if  pftrcnt  =  PF  and 
pabmcnt  =  PA  and 
PA  >  PF  and 
PA  >  (2.01  *  PF)  and 

display(['Your  defensive  systems  for  year  ', 

X,'  were  NOT  balanced. ' , n 1 , 

'This  results  in  a  penalty  applied  to  ', 
'your  total  utils  which', nl, 

'means  that  your  systems  were  less  ', 
'effective  than  you  anticipated'  ,nl  ,nl  1  ) 
then  cycle  X  balanced  defense  is  complete. 


if  pftrcnt  =  PF  and 
pabmcnt  =  PA  and 
PA  >=  PF  and 
PA  <=  (2.01  *  PF)  and 
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d  i  s p  la y (  [ ' You r  defensive  systems  for  year 
X,'  were  ba  1  anc ed . ' , n 1 ) ) 
then  cycle  X  balanced  defense  is  complete. 

if  overspent  =  OV  and 
OV  =  0 

then  cycle  X  overspent  check  is  complete. 

if  overspent  =  OV  and 
OV  =  1  and 

d  i  s  play( l 'You  overspent  your  budget  this  year. 

'This  is  a  c r  i  t  ic a  1 ' , n 1 , 

'mistake  as  it  will  result  in  a  reduced  ', 
'budget  the  next' ,nl , 

'year  as  well  as  causing  you  to  lose  ', 

'some  of  your  s y s t ems . ' , n 1 , 

'The  systems  lost  may  not  be  ones  you  ', 
'would  have  wished  to'  ,nl , 

'lose,  they  are  picked  by  the  ', 

'computer  at  r a ndom . ' , n 1 , n 1 1 ) 
then  cycle  X  overspent  check  is  complete. 

if  overspent  =  OV  and 
OV  =  2  and 

d  i  s p  1  a y (  l ' You  overspent  your  budget  again.  ', 

'This  is  a  cr  it  ica  1  ' , nl , 

'error  and  it  is  extremely  important  ', 

'that  you  ensure  that'.nl, 

'you  remain  within  budget  each  year . ' , n  1  ,  n l )  ) 
then  cycle  X  overspent  check  is  complete. 


if  overspent  =  OV  and 
0  V  =  3  and 

display (('This  is  the  third  year  that  you  ', 
'overspent  your  budget.  '  ,  n  1  , 

'This  could  indicate  that  you  do  not  ', 
'quite  understand  all',nl, 

'of  the  variables  that  go  into  the  ', 
'calculating  of  the  budget',  nl, 

'spent  each  year.  One  of  the  most  ', 
'often  forgotten  items  is'.nl, 

'the  active  forces  operations  costs.  ', 
'If  you  do  not  scrap', nl, 

'a  system  the  computer  will  deduct  ', 
'operations  cost  for  it.'.nl, 

'You  must  also  remember  to  add  in  any  ', 
'Pn&D  costs  as  well  a  s  '  ,  n  1  , 

'the  cost  of  purchasing  any  new  systems. 

Finally,  re m ember', nl, 

'that  each  type  of  intel  report 
costs  you  $  1 0 0  .  '  ,  n  1  ,  n 1  )  )  and 


ovspent  is  complete 

then  cycle  X  overspent  check  is  complete. 

if  overspent  =  OV  and 
0 V  =  4  and 

d  i  s p  la y (  [ ' You  have  once  again  overspent  your  budget 
This  could', n  1  , 

'undoubtably  be  a  deciding  factor 
'in  the  game . ' , n 1 , n  1  )  ) 
then  cycle  X  overspent  check  is  complete. 

if  overspent  =  OV  and 
OV  >  4  and 

d i s p 1  a y (  l ' You  have  once  again  overspent  ', 

'your  bu dg e t . ' , n 1  ,  n  1  ]  ) 
then  cycle  X  overspent  check  is  complete. 

if  ovready  =  yes  and 

display(l'If  you  have  the  following,  what  ', 

'is  your  budget  c o s t ? ' , n  1  ,  n  1  , 

'Bl  -->  Acq  cost  =  100,  Ops  cost  =  50', nl 
'Fl  -->  Acq  cost  =  50,  Ops  cost  “  25', nl 
'Your  current  inventory  contains  ', 

'5  Bis  and  2  Fls.',nl,nl, 

'You  wish  to  purchase  an  additional', 

5  Bis  and  4  Fls.',nl,nl, 

'You  want  an  intelligence  report  ', 

'on  offensive  R&D.',nl,nl, 

'You  wish  to  fund  R&D  on  a  B2 ,  cost  200 
'for  1st  year . '  ,nl  ,nl  ] )  and 
ovcost  =  1300  and 
display(  ['Correct', nil) 
then  ovspent  is  complete. 

if  ovready  =  yes  and 

display( ( 'Incorrect' ,nl , 

'The  correct  answer  is  1300  which  is  ', 
'obtained  as  follows:', nl  ,nl , 

'Current  Ops  costs:', nl, 


* 

5  Bis  <S  50  = 

2  50  '  ,nl  , 

* 

2  FIs  C'  25  = 

50', nl, 

'Acquisition  costs:', nl, 

5  Bis  Q  100 

=  50 0  '  ,  n  1  , 

* 

4  Fls  0  50 

=  200'  ,nl  , 

'Intel 

report:  1  0  100 

=  100' , n 1 , 

'R&D: 

* 

1  0  2  00 

=  200  '  ,nl  , 
- ' , nl  , 

'TOTAL 

COST 

1  300  '  ,nl  )  ) 

then  ovspent  is  complete. 


if  varyear  “  WY  and 
WY  =  0 

then  cycle  X  war  check  is  complete. 

if  waryear  =  WY  and 
WY  =  1  and 

d  i  s p  la y ( [ ' The r e  was  a  war  this  year  which  you  LOST.'.r 
'If  you  recall,  losing  a  war  will 
'reduce  your  budget  by  $800', nl, 

'while  only  reducing  you  opponents  by  200. 
'This  means  that',nl, 

'your  opponent  will  have  more  money  ', 

'to  work  with  next  year' ,nl , 

'and  thus  have  a  better  chance  of  ', 
'maintaining  an  advantage.'  ,nl,nl]) 
then  cycle  X  war  check  is  complete. 

if  waryear  =  WY  and 
WY  =  2  and 

display(l'There  was  a  war  this  year  which  you  W 0 N . ' , n 1 
'This  means  that  your  opponent  had  ', 

'its  budget  reduced', nl, 

'by  $S00  while  yours  was  only  reduced  ', 

'by  $200.  This'.nl, 

'gives  you  a  chance  to  maintain  your 
'advantage,  p r ov i d ed '  ,  n  1  , 

'you  make  no  mistakes  in  the  future. ' ,nl ,nl  ]  ) 
then  cycle  X  war  check  is  complete. 

if  waryear  =  WY  and 
WY  =3  and 

display( ('There  was  a  war  this  year  which  ', 

'ended  in  a  draw. ' ,nl  , 

'While  this  meant  your  budget  was  ', 

'reduced  by  $400,  ',nl, 

'it  should  net  have  adversely  affected', 
you  since  your'.nl, 

'opponents  budget  was  reduced  by  ', 

'the  same  amount  .  '  ,nl  ,nl 1 ) 
then  cycle  X  war  check  is  complete. 


if  overdefend  =  OD  and 
OD  =  0 

then  cycle  X  overdefend  check  is  complete. 

if  overdefend  =  OD  and 
OD  =  1  and 

display( ( 'You  overdefended  this  year.  ', 
'This  means  that  you  spent', nl, 
'more  money  on  defense  than  you 
'needed  to.  Money  spent', nl, 

'in  this  manner  is  refered  to  as 
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'"Futile  utils"  since  you'.nl, 
'receive  no  benefits  from  any  extra 
'defensive  utils  ( they'  ,nl  , 

'are  wasted . ' , nl ,nl  1  ) 

then  cycle  X  overdefend  check  is  complete. 

if  budgetleft  =  BL  and 
BL  =  0 

then  cycle  X  budgetleft  check  is  complete. 

if  budgetleft  =  BL  and 
BL  =  1  and 

d i s p 1  a y ( [ ' You  had  more  than  $100  dollars  left 
'in  your  budget  at  the'  ,nl  , 

'end  of  this  year.  You  should  always 
'try  to  spend  your  entire', nl, 

'budget  even  if  it  means  funding  ', 

'a  lesser  system.' ,nl  ,nl  1  ) 
then  cycle  X  budgetleft  check  is  complete. 


if  do(reset) 

then  varclear  X  is  complete. 

q ue s t  i  o n ( c y c  1  e  X  paused)  =  (nl, 

'Hit  any  character,  a  period,  and  the  enter', 
key  when  ready  to  continue.', nil. 

question(ovready)  =  ['Lets  run  through  an  example 

'Type  yes  when  ready.', nil. 

quest ion( ovcost )  =  ['What  is  the  years  ', 

'total  budget  cost?', nil. 

1 ega 1 va  1  s ( ovc o s t )  *  integer. 


Appendix  C 
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Captain  Gregory  B.  White  was  born  January  29,  1958  in 
Washington  D.C.  Upon  graduation  in  1975  from  Oxon  Hill  High 
School  in  Oxon  Hill,  Maryland  he  entered  the  Brigham  Young 
University.  He  graduated  with  a  Bachelor  of  Science  degree 
in  Computer  Science  in  1980  and  was  commissioned  a  Reserve 
Second  Lieutenant  in  the  United  States  Air  Force. 

After  graduation,  Captain  White  was  assigned  to  the  3900th 
Computer  Services  Squadron,  Offutt  AFB,  Nebraska  where  he 
worked  as  a  Systems  Analyst  for  the  Joint  Chiefs  of  Staff  War 
Plans  Programming  Directorate.  While  at  Offutt,  he  received 
his  Regular  Commission  and  was  sent  to  Squadron  Officers 
School  from  whence  he  graduated  in  March  of  1984.  In  May  of 
1984  Captain  White  entered  the  Masters  program  at  the  Air 
Force  Institute  of  Technology,  Wright  Patterson  AFB,  Ohio. 

Captain  White  is  married  to  the  former  Charlan  G.  Cook  of 
Moriarity,  New  Mexico.  They  have  three  children:  Sandra, 
Heather,  and  Gregory  M.  White.  Captain  White  is  a  member  of 
Tau  Beta  Pi. 
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